home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 31.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 35 3a 34 | 36 20 31 39 39 35 0a 3b | 14:05:4|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 61 72 63 2d |/lisp/mo|des/arc-|
|00000090| 6d 6f 64 65 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |mode.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on).. |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 | (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))). | (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 64 65 66 76 |cs 19.")|)..(defv|
|000001f0| 61 72 20 61 72 63 68 69 | 76 65 2d 64 6f 73 2d 6d |ar archi|ve-dos-m|
|00000200| 65 6d 62 65 72 73 20 74 | 20 22 5c 0a 2a 49 66 20 |embers t| "\.*If |
|00000210| 6e 6f 6e 2d 6e 69 6c 20 | 74 68 65 6e 20 72 65 63 |non-nil |then rec|
|00000220| 6f 67 6e 69 7a 65 20 6d | 65 6d 62 65 72 20 66 69 |ognize m|ember fi|
|00000230| 6c 65 73 20 75 73 69 6e | 67 20 5e 4d 5e 4a 20 61 |les usin|g ^M^J a|
|00000240| 73 20 6c 69 6e 65 20 74 | 65 72 6d 69 6e 61 74 6f |s line t|erminato|
|00000250| 72 0a 61 6e 64 20 64 6f | 20 54 68 65 20 52 69 67 |r.and do| The Rig|
|00000260| 68 74 20 54 68 69 6e 67 | 2e 22 29 0a 28 64 65 66 |ht Thing|.").(def|
|00000270| 76 61 72 20 61 72 63 68 | 69 76 65 2d 74 6d 70 64 |var arch|ive-tmpd|
|00000280| 69 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ir (byte|-code ".|
|00000290| c1 5c 6e c3 3d ab 83 c4 | aa 81 c5 21 c6 c7 21 ae |.\n.=...|...!..!.|
|000002a0| 86 c6 c8 21 ae 81 c9 5c | 22 87 22 20 5b 65 78 70 |...!...\|"." [exp|
|000002b0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6d 61 |and-file|-name ma|
|000002c0| 6b 65 2d 74 65 6d 70 2d | 6e 61 6d 65 20 73 79 73 |ke-temp-|name sys|
|000002d0| 74 65 6d 2d 74 79 70 65 | 20 6d 73 2d 64 6f 73 20 |tem-type| ms-dos |
|000002e0| 22 61 72 22 20 22 61 72 | 63 68 69 76 65 2e 74 6d |"ar" "ar|chive.tm|
|000002f0| 70 22 20 67 65 74 65 6e | 76 20 22 54 4d 50 44 49 |p" geten|v "TMPDI|
|00000300| 52 22 20 22 54 4d 50 22 | 20 22 2f 74 6d 70 22 5d |R" "TMP"| "/tmp"]|
|00000310| 20 34 29 20 22 5c 0a 2a | 44 69 72 65 63 74 6f 72 | 4) "\.*|Director|
|00000320| 79 20 66 6f 72 20 74 65 | 6d 70 6f 72 61 72 79 20 |y for te|mporary |
|00000330| 66 69 6c 65 73 20 6d 61 | 64 65 20 62 79 20 61 72 |files ma|de by ar|
|00000340| 63 2d 6d 6f 64 65 2e 65 | 6c 22 29 0a 28 64 65 66 |c-mode.e|l").(def|
|00000350| 76 61 72 20 61 72 63 68 | 69 76 65 2d 72 65 6d 6f |var arch|ive-remo|
|00000360| 74 65 2d 72 65 67 65 78 | 70 20 22 5e 2f 5b 5e 2f |te-regex|p "^/[^/|
|00000370| 3a 5d 2a 5b 5e 2f 3a 5d | 3a 22 20 22 5c 0a 2a 52 |:]*[^/:]|:" "\.*R|
|00000380| 65 67 65 78 70 20 72 65 | 63 6f 67 6e 69 7a 69 6e |egexp re|cognizin|
|00000390| 67 20 61 72 63 68 69 76 | 65 20 66 69 6c 65 73 20 |g archiv|e files |
|000003a0| 6e 61 6d 65 73 20 74 68 | 61 74 20 61 72 65 20 6e |names th|at are n|
|000003b0| 6f 74 20 6c 6f 63 61 6c | 20 28 69 2e 65 2e 2c 20 |ot local| (i.e., |
|000003c0| 61 72 65 0a 6e 6f 74 20 | 70 72 6f 70 65 72 20 66 |are.not |proper f|
|000003d0| 69 6c 65 20 6e 61 6d 65 | 73 20 6f 75 74 73 69 64 |ile name|s outsid|
|000003e0| 65 20 45 6d 61 63 73 29 | 2e 20 20 41 20 6c 6f 63 |e Emacs)|. A loc|
|000003f0| 61 6c 20 63 6f 70 79 20 | 61 20 74 68 65 20 61 72 |al copy |a the ar|
|00000400| 63 68 69 76 65 20 77 69 | 6c 6c 0a 62 65 20 75 73 |chive wi|ll.be us|
|00000410| 65 64 20 77 68 65 6e 20 | 75 70 64 61 74 69 6e 67 |ed when |updating|
|00000420| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 |.").(def|var arch|
|00000430| 69 76 65 2d 65 78 74 72 | 61 63 74 2d 68 6f 6f 6b |ive-extr|act-hook|
|00000440| 73 20 6e 69 6c 20 22 5c | 0a 2a 48 6f 6f 6b 73 20 |s nil "\|.*Hooks |
|00000450| 74 6f 20 72 75 6e 20 77 | 68 65 6e 20 61 6e 20 61 |to run w|hen an a|
|00000460| 72 63 68 69 76 65 20 6d | 65 6d 62 65 72 20 68 61 |rchive m|ember ha|
|00000470| 73 20 62 65 65 6e 20 65 | 78 74 72 61 63 74 65 64 |s been e|xtracted|
|00000480| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 |.").(def|var arch|
|00000490| 69 76 65 2d 61 72 63 2d | 65 78 74 72 61 63 74 20 |ive-arc-|extract |
|000004a0| 27 28 22 61 72 63 22 20 | 22 78 22 29 20 22 5c 0a |'("arc" |"x") "\.|
|000004b0| 2a 50 72 6f 67 72 61 6d | 20 61 6e 64 20 69 74 73 |*Program| and its|
|000004c0| 20 6f 70 74 69 6f 6e 73 | 20 74 6f 20 72 75 6e 20 | options| to run |
|000004d0| 69 6e 20 6f 72 64 65 72 | 20 74 6f 20 65 78 74 72 |in order| to extr|
|000004e0| 61 63 74 20 61 6e 20 61 | 72 63 20 66 69 6c 65 20 |act an a|rc file |
|000004f0| 6d 65 6d 62 65 72 0a 74 | 6f 20 74 68 65 20 63 75 |member.t|o the cu|
|00000500| 72 72 65 6e 74 20 64 69 | 72 65 63 74 6f 72 79 2e |rrent di|rectory.|
|00000510| 20 20 41 72 63 68 69 76 | 65 20 61 6e 64 20 6d 65 | Archiv|e and me|
|00000520| 6d 62 65 72 20 6e 61 6d | 65 20 77 69 6c 6c 20 62 |mber nam|e will b|
|00000530| 65 20 61 64 64 65 64 2e | 22 29 0a 28 64 65 66 76 |e added.|").(defv|
|00000540| 61 72 20 61 72 63 68 69 | 76 65 2d 61 72 63 2d 65 |ar archi|ve-arc-e|
|00000550| 78 70 75 6e 67 65 20 27 | 28 22 61 72 63 22 20 22 |xpunge '|("arc" "|
|00000560| 64 22 29 20 22 5c 0a 2a | 50 72 6f 67 72 61 6d 20 |d") "\.*|Program |
|00000570| 61 6e 64 20 69 74 73 20 | 6f 70 74 69 6f 6e 73 20 |and its |options |
|00000580| 74 6f 20 72 75 6e 20 69 | 6e 20 6f 72 64 65 72 20 |to run i|n order |
|00000590| 74 6f 20 64 65 6c 65 74 | 65 20 61 72 63 20 66 69 |to delet|e arc fi|
|000005a0| 6c 65 20 6d 65 6d 62 65 | 72 73 2e 0a 41 72 63 68 |le membe|rs..Arch|
|000005b0| 69 76 65 20 61 6e 64 20 | 6d 65 6d 62 65 72 20 6e |ive and |member n|
|000005c0| 61 6d 65 73 20 77 69 6c | 6c 20 62 65 20 61 64 64 |ames wil|l be add|
|000005d0| 65 64 2e 22 29 0a 28 64 | 65 66 76 61 72 20 61 72 |ed.").(d|efvar ar|
|000005e0| 63 68 69 76 65 2d 61 72 | 63 2d 77 72 69 74 65 2d |chive-ar|c-write-|
|000005f0| 66 69 6c 65 2d 6d 65 6d | 62 65 72 20 27 28 22 61 |file-mem|ber '("a|
|00000600| 72 63 22 20 22 75 22 29 | 20 22 5c 0a 2a 50 72 6f |rc" "u")| "\.*Pro|
|00000610| 67 72 61 6d 20 61 6e 64 | 20 69 74 73 20 6f 70 74 |gram and| its opt|
|00000620| 69 6f 6e 73 20 74 6f 20 | 72 75 6e 20 69 6e 20 6f |ions to |run in o|
|00000630| 72 64 65 72 20 74 6f 20 | 75 70 64 61 74 65 20 61 |rder to |update a|
|00000640| 6e 20 61 72 63 20 66 69 | 6c 65 20 6d 65 6d 62 65 |n arc fi|le membe|
|00000650| 72 2e 0a 41 72 63 68 69 | 76 65 20 61 6e 64 20 6d |r..Archi|ve and m|
|00000660| 65 6d 62 65 72 20 6e 61 | 6d 65 20 77 69 6c 6c 20 |ember na|me will |
|00000670| 62 65 20 61 64 64 65 64 | 2e 22 29 0a 28 64 65 66 |be added|.").(def|
|00000680| 76 61 72 20 61 72 63 68 | 69 76 65 2d 6c 7a 68 2d |var arch|ive-lzh-|
|00000690| 65 78 74 72 61 63 74 20 | 27 28 22 6c 68 61 22 20 |extract |'("lha" |
|000006a0| 22 70 71 22 29 20 22 5c | 0a 2a 50 72 6f 67 72 61 |"pq") "\|.*Progra|
|000006b0| 6d 20 61 6e 64 20 69 74 | 73 20 6f 70 74 69 6f 6e |m and it|s option|
|000006c0| 73 20 74 6f 20 72 75 6e | 20 69 6e 20 6f 72 64 65 |s to run| in orde|
|000006d0| 72 20 74 6f 20 65 78 74 | 72 61 63 74 20 61 6e 20 |r to ext|ract an |
|000006e0| 6c 7a 68 20 66 69 6c 65 | 20 6d 65 6d 62 65 72 0a |lzh file| member.|
|000006f0| 74 6f 20 73 74 61 6e 64 | 61 72 64 20 6f 75 74 70 |to stand|ard outp|
|00000700| 75 74 2e 20 20 41 72 63 | 68 69 76 65 20 61 6e 64 |ut. Arc|hive and|
|00000710| 20 6d 65 6d 62 65 72 20 | 6e 61 6d 65 20 77 69 6c | member |name wil|
|00000720| 6c 20 62 65 20 61 64 64 | 65 64 2e 22 29 0a 28 64 |l be add|ed.").(d|
|00000730| 65 66 76 61 72 20 61 72 | 63 68 69 76 65 2d 6c 7a |efvar ar|chive-lz|
|00000740| 68 2d 65 78 70 75 6e 67 | 65 20 27 28 22 6c 68 61 |h-expung|e '("lha|
|00000750| 22 20 22 64 22 29 20 22 | 5c 0a 2a 50 72 6f 67 72 |" "d") "|\.*Progr|
|00000760| 61 6d 20 61 6e 64 20 69 | 74 73 20 6f 70 74 69 6f |am and i|ts optio|
|00000770| 6e 73 20 74 6f 20 72 75 | 6e 20 69 6e 20 6f 72 64 |ns to ru|n in ord|
|00000780| 65 72 20 74 6f 20 64 65 | 6c 65 74 65 20 6c 7a 68 |er to de|lete lzh|
|00000790| 20 66 69 6c 65 20 6d 65 | 6d 62 65 72 73 2e 0a 41 | file me|mbers..A|
|000007a0| 72 63 68 69 76 65 20 61 | 6e 64 20 6d 65 6d 62 65 |rchive a|nd membe|
|000007b0| 72 20 6e 61 6d 65 73 20 | 77 69 6c 6c 20 62 65 20 |r names |will be |
|000007c0| 61 64 64 65 64 2e 22 29 | 0a 28 64 65 66 76 61 72 |added.")|.(defvar|
|000007d0| 20 61 72 63 68 69 76 65 | 2d 6c 7a 68 2d 77 72 69 | archive|-lzh-wri|
|000007e0| 74 65 2d 66 69 6c 65 2d | 6d 65 6d 62 65 72 20 27 |te-file-|member '|
|000007f0| 28 22 6c 68 61 22 20 22 | 61 22 29 20 22 5c 0a 2a |("lha" "|a") "\.*|
|00000800| 50 72 6f 67 72 61 6d 20 | 61 6e 64 20 69 74 73 20 |Program |and its |
|00000810| 6f 70 74 69 6f 6e 73 20 | 74 6f 20 72 75 6e 20 69 |options |to run i|
|00000820| 6e 20 6f 72 64 65 72 20 | 74 6f 20 75 70 64 61 74 |n order |to updat|
|00000830| 65 20 61 6e 20 6c 7a 68 | 20 66 69 6c 65 20 6d 65 |e an lzh| file me|
|00000840| 6d 62 65 72 2e 0a 41 72 | 63 68 69 76 65 20 61 6e |mber..Ar|chive an|
|00000850| 64 20 6d 65 6d 62 65 72 | 20 6e 61 6d 65 20 77 69 |d member| name wi|
|00000860| 6c 6c 20 62 65 20 61 64 | 64 65 64 2e 22 29 0a 28 |ll be ad|ded.").(|
|00000870| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 7a |defvar a|rchive-z|
|00000880| 69 70 2d 75 73 65 2d 70 | 6b 7a 69 70 20 28 6d 65 |ip-use-p|kzip (me|
|00000890| 6d 71 20 73 79 73 74 65 | 6d 2d 74 79 70 65 20 27 |mq syste|m-type '|
|000008a0| 28 6d 73 2d 64 6f 73 20 | 77 69 6e 64 6f 77 73 2d |(ms-dos |windows-|
|000008b0| 6e 74 29 29 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |nt)) "\.|*If non-|
|000008c0| 6e 69 6c 20 74 68 65 6e | 20 61 6c 6c 20 7a 69 70 |nil then| all zip|
|000008d0| 20 6f 70 74 69 6f 6e 73 | 20 64 65 66 61 75 6c 74 | options| default|
|000008e0| 20 74 6f 20 76 61 6c 75 | 65 73 20 73 75 69 74 61 | to valu|es suita|
|000008f0| 62 6c 65 20 77 68 65 6e | 20 75 73 69 6e 67 0a 70 |ble when| using.p|
|00000900| 6b 7a 69 70 20 61 6e 64 | 20 70 6b 75 6e 7a 69 70 |kzip and| pkunzip|
|00000910| 2e 20 20 4f 6e 6c 79 20 | 73 65 74 20 74 6f 20 74 |. Only |set to t|
|00000920| 72 75 65 20 66 6f 72 20 | 6d 73 64 6f 67 20 73 79 |rue for |msdog sy|
|00000930| 73 74 65 6d 73 21 22 29 | 0a 28 64 65 66 76 61 72 |stems!")|.(defvar|
|00000940| 20 61 72 63 68 69 76 65 | 2d 7a 69 70 2d 65 78 74 | archive|-zip-ext|
|00000950| 72 61 63 74 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ract (by|te-code |
|00000960| 22 08 ab 82 c1 87 c2 87 | 22 20 5b 61 72 63 68 69 |".......|" [archi|
|00000970| 76 65 2d 7a 69 70 2d 75 | 73 65 2d 70 6b 7a 69 70 |ve-zip-u|se-pkzip|
|00000980| 20 28 22 70 6b 75 6e 7a | 69 70 22 20 22 2d 65 22 | ("pkunz|ip" "-e"|
|00000990| 29 20 28 22 75 6e 7a 69 | 70 22 20 22 2d 71 71 22 |) ("unzi|p" "-qq"|
|000009a0| 20 22 2d 63 22 29 5d 20 | 31 29 20 22 5c 0a 2a 50 | "-c")] |1) "\.*P|
|000009b0| 72 6f 67 72 61 6d 20 61 | 6e 64 20 69 74 73 20 6f |rogram a|nd its o|
|000009c0| 70 74 69 6f 6e 73 20 74 | 6f 20 72 75 6e 20 69 6e |ptions t|o run in|
|000009d0| 20 6f 72 64 65 72 20 74 | 6f 20 65 78 74 72 61 63 | order t|o extrac|
|000009e0| 74 20 61 20 7a 69 70 20 | 66 69 6c 65 20 6d 65 6d |t a zip |file mem|
|000009f0| 62 65 72 0a 74 6f 20 73 | 74 61 6e 64 61 72 64 20 |ber.to s|tandard |
|00000a00| 6f 75 74 70 75 74 2e 20 | 20 41 72 63 68 69 76 65 |output. | Archive|
|00000a10| 20 61 6e 64 20 6d 65 6d | 62 65 72 20 6e 61 6d 65 | and mem|ber name|
|00000a20| 20 77 69 6c 6c 20 62 65 | 20 61 64 64 65 64 2e 0a | will be| added..|
|00000a30| 0a 49 66 20 60 61 72 63 | 68 69 76 65 2d 7a 69 70 |.If `arc|hive-zip|
|00000a40| 2d 75 73 65 2d 70 6b 7a | 69 70 27 20 69 73 20 6e |-use-pkz|ip' is n|
|00000a50| 6f 6e 2d 6e 69 6c 20 74 | 68 65 6e 20 74 68 69 73 |on-nil t|hen this|
|00000a60| 20 70 72 6f 67 72 61 6d | 20 69 73 20 65 78 70 65 | program| is expe|
|00000a70| 63 74 65 64 20 74 6f 0a | 65 78 74 72 61 63 74 20 |cted to.|extract |
|00000a80| 74 6f 20 61 20 66 69 6c | 65 20 6a 75 6e 6b 69 6e |to a fil|e junkin|
|00000a90| 67 20 74 68 65 20 64 69 | 72 65 63 74 6f 72 79 20 |g the di|rectory |
|00000aa0| 70 61 72 74 20 6f 66 20 | 74 68 65 20 6e 61 6d 65 |part of |the name|
|00000ab0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 |.").(def|var arch|
|00000ac0| 69 76 65 2d 7a 69 70 2d | 65 78 70 75 6e 67 65 20 |ive-zip-|expunge |
|00000ad0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ab 82 c1 |(byte-co|de "....|
|00000ae0| 87 c2 87 22 20 5b 61 72 | 63 68 69 76 65 2d 7a 69 |..." [ar|chive-zi|
|00000af0| 70 2d 75 73 65 2d 70 6b | 7a 69 70 20 28 22 70 6b |p-use-pk|zip ("pk|
|00000b00| 7a 69 70 22 20 22 2d 64 | 22 29 20 28 22 7a 69 70 |zip" "-d|") ("zip|
|00000b10| 22 20 22 2d 64 22 20 22 | 2d 71 22 29 5d 20 31 29 |" "-d" "|-q")] 1)|
|00000b20| 20 22 5c 0a 2a 50 72 6f | 67 72 61 6d 20 61 6e 64 | "\.*Pro|gram and|
|00000b30| 20 69 74 73 20 6f 70 74 | 69 6f 6e 73 20 74 6f 20 | its opt|ions to |
|00000b40| 72 75 6e 20 69 6e 20 6f | 72 64 65 72 20 74 6f 20 |run in o|rder to |
|00000b50| 64 65 6c 65 74 65 20 7a | 69 70 20 66 69 6c 65 20 |delete z|ip file |
|00000b60| 6d 65 6d 62 65 72 73 2e | 0a 41 72 63 68 69 76 65 |members.|.Archive|
|00000b70| 20 61 6e 64 20 6d 65 6d | 62 65 72 20 6e 61 6d 65 | and mem|ber name|
|00000b80| 73 20 77 69 6c 6c 20 62 | 65 20 61 64 64 65 64 2e |s will b|e added.|
|00000b90| 22 29 0a 28 64 65 66 76 | 61 72 20 61 72 63 68 69 |").(defv|ar archi|
|00000ba0| 76 65 2d 7a 69 70 2d 75 | 70 64 61 74 65 20 28 62 |ve-zip-u|pdate (b|
|00000bb0| 79 74 65 2d 63 6f 64 65 | 20 22 08 ab 82 c1 87 c2 |yte-code| "......|
|00000bc0| 87 22 20 5b 61 72 63 68 | 69 76 65 2d 7a 69 70 2d |." [arch|ive-zip-|
|00000bd0| 75 73 65 2d 70 6b 7a 69 | 70 20 28 22 70 6b 7a 69 |use-pkzi|p ("pkzi|
|00000be0| 70 22 20 22 2d 75 22 29 | 20 28 22 7a 69 70 22 20 |p" "-u")| ("zip" |
|00000bf0| 22 2d 71 22 29 5d 20 31 | 29 20 22 5c 0a 2a 50 72 |"-q")] 1|) "\.*Pr|
|00000c00| 6f 67 72 61 6d 20 61 6e | 64 20 69 74 73 20 6f 70 |ogram an|d its op|
|00000c10| 74 69 6f 6e 73 20 74 6f | 20 72 75 6e 20 69 6e 20 |tions to| run in |
|00000c20| 6f 72 64 65 72 20 74 6f | 20 75 70 64 61 74 65 20 |order to| update |
|00000c30| 61 20 7a 69 70 20 66 69 | 6c 65 20 6d 65 6d 62 65 |a zip fi|le membe|
|00000c40| 72 2e 0a 4f 70 74 69 6f | 6e 73 20 73 68 6f 75 6c |r..Optio|ns shoul|
|00000c50| 64 20 65 6e 73 75 72 65 | 20 74 68 61 74 20 73 70 |d ensure| that sp|
|00000c60| 65 63 69 66 69 65 64 20 | 64 69 72 65 63 74 6f 72 |ecified |director|
|00000c70| 79 20 77 69 6c 6c 20 62 | 65 20 70 75 74 20 69 6e |y will b|e put in|
|00000c80| 74 6f 20 74 68 65 20 7a | 69 70 0a 66 69 6c 65 2e |to the z|ip.file.|
|00000c90| 20 20 41 72 63 68 69 76 | 65 20 61 6e 64 20 6d 65 | Archiv|e and me|
|00000ca0| 6d 62 65 72 20 6e 61 6d | 65 20 77 69 6c 6c 20 62 |mber nam|e will b|
|00000cb0| 65 20 61 64 64 65 64 2e | 22 29 0a 28 64 65 66 76 |e added.|").(defv|
|00000cc0| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 69 70 2d 75 |ar archi|ve-zip-u|
|00000cd0| 70 64 61 74 65 2d 63 61 | 73 65 20 28 62 79 74 65 |pdate-ca|se (byte|
|00000ce0| 2d 63 6f 64 65 20 22 08 | ab 82 09 87 c2 87 22 20 |-code ".|......" |
|00000cf0| 5b 61 72 63 68 69 76 65 | 2d 7a 69 70 2d 75 73 65 |[archive|-zip-use|
|00000d00| 2d 70 6b 7a 69 70 20 61 | 72 63 68 69 76 65 2d 7a |-pkzip a|rchive-z|
|00000d10| 69 70 2d 75 70 64 61 74 | 65 20 28 22 7a 69 70 22 |ip-updat|e ("zip"|
|00000d20| 20 22 2d 71 22 20 22 2d | 6b 22 29 5d 20 31 29 20 | "-q" "-|k")] 1) |
|00000d30| 22 5c 0a 2a 50 72 6f 67 | 72 61 6d 20 61 6e 64 20 |"\.*Prog|ram and |
|00000d40| 69 74 73 20 6f 70 74 69 | 6f 6e 73 20 74 6f 20 72 |its opti|ons to r|
|00000d50| 75 6e 20 69 6e 20 6f 72 | 64 65 72 20 74 6f 20 75 |un in or|der to u|
|00000d60| 70 64 61 74 65 20 61 20 | 63 61 73 65 20 66 69 64 |pdate a |case fid|
|00000d70| 64 6c 65 64 0a 7a 69 70 | 20 66 69 6c 65 20 6d 65 |dled.zip| file me|
|00000d80| 6d 62 65 72 2e 20 20 4f | 70 74 69 6f 6e 73 20 73 |mber. O|ptions s|
|00000d90| 68 6f 75 6c 64 20 65 6e | 73 75 72 65 20 74 68 61 |hould en|sure tha|
|00000da0| 74 20 73 70 65 63 69 66 | 69 65 64 20 64 69 72 65 |t specif|ied dire|
|00000db0| 63 74 6f 72 79 20 77 69 | 6c 6c 0a 62 65 20 70 75 |ctory wi|ll.be pu|
|00000dc0| 74 20 69 6e 74 6f 20 74 | 68 65 20 7a 69 70 20 66 |t into t|he zip f|
|00000dd0| 69 6c 65 2e 20 20 41 72 | 63 68 69 76 65 20 61 6e |ile. Ar|chive an|
|00000de0| 64 20 6d 65 6d 62 65 72 | 20 6e 61 6d 65 20 77 69 |d member| name wi|
|00000df0| 6c 6c 20 62 65 20 61 64 | 64 65 64 2e 22 29 0a 28 |ll be ad|ded.").(|
|00000e00| 64 65 66 76 61 72 20 61 | 72 63 68 69 76 65 2d 7a |defvar a|rchive-z|
|00000e10| 69 70 2d 63 61 73 65 2d | 66 69 64 64 6c 65 20 74 |ip-case-|fiddle t|
|00000e20| 20 22 5c 0a 2a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 20 | "\.*If |non-nil |
|00000e30| 74 68 65 6e 20 7a 69 70 | 20 66 69 6c 65 20 6d 65 |then zip| file me|
|00000e40| 6d 62 65 72 73 20 61 72 | 65 20 6d 61 70 70 65 64 |mbers ar|e mapped|
|00000e50| 20 74 6f 20 6c 6f 77 65 | 72 20 63 61 73 65 20 69 | to lowe|r case i|
|00000e60| 66 20 63 72 65 61 74 65 | 64 0a 62 79 20 61 20 73 |f create|d.by a s|
|00000e70| 79 73 74 65 6d 20 74 68 | 61 74 20 75 6e 64 65 72 |ystem th|at under|
|00000e80| 20 73 69 6e 67 6c 65 20 | 63 61 73 65 20 66 69 6c | single |case fil|
|00000e90| 65 20 6e 61 6d 65 73 2e | 22 29 0a 28 64 65 66 76 |e names.|").(defv|
|00000ea0| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 6f 6f 2d 65 |ar archi|ve-zoo-e|
|00000eb0| 78 74 72 61 63 74 20 27 | 28 22 7a 6f 6f 22 20 22 |xtract '|("zoo" "|
|00000ec0| 78 70 71 22 29 20 22 5c | 0a 2a 50 72 6f 67 72 61 |xpq") "\|.*Progra|
|00000ed0| 6d 20 61 6e 64 20 69 74 | 73 20 6f 70 74 69 6f 6e |m and it|s option|
|00000ee0| 73 20 74 6f 20 72 75 6e | 20 69 6e 20 6f 72 64 65 |s to run| in orde|
|00000ef0| 72 20 74 6f 20 65 78 74 | 72 61 63 74 20 61 20 7a |r to ext|ract a z|
|00000f00| 6f 6f 20 66 69 6c 65 20 | 6d 65 6d 62 65 72 0a 74 |oo file |member.t|
|00000f10| 6f 20 73 74 61 6e 64 61 | 72 64 20 6f 75 74 70 75 |o standa|rd outpu|
|00000f20| 74 2e 20 20 41 72 63 68 | 69 76 65 20 61 6e 64 20 |t. Arch|ive and |
|00000f30| 6d 65 6d 62 65 72 20 6e | 61 6d 65 20 77 69 6c 6c |member n|ame will|
|00000f40| 20 62 65 20 61 64 64 65 | 64 2e 22 29 0a 28 64 65 | be adde|d.").(de|
|00000f50| 66 76 61 72 20 61 72 63 | 68 69 76 65 2d 7a 6f 6f |fvar arc|hive-zoo|
|00000f60| 2d 65 78 70 75 6e 67 65 | 20 27 28 22 7a 6f 6f 22 |-expunge| '("zoo"|
|00000f70| 20 22 44 71 50 50 22 29 | 20 22 5c 0a 2a 50 72 6f | "DqPP")| "\.*Pro|
|00000f80| 67 72 61 6d 20 61 6e 64 | 20 69 74 73 20 6f 70 74 |gram and| its opt|
|00000f90| 69 6f 6e 73 20 74 6f 20 | 72 75 6e 20 69 6e 20 6f |ions to |run in o|
|00000fa0| 72 64 65 72 20 74 6f 20 | 64 65 6c 65 74 65 20 7a |rder to |delete z|
|00000fb0| 6f 6f 20 66 69 6c 65 20 | 6d 65 6d 62 65 72 73 2e |oo file |members.|
|00000fc0| 0a 41 72 63 68 69 76 65 | 20 61 6e 64 20 6d 65 6d |.Archive| and mem|
|00000fd0| 62 65 72 20 6e 61 6d 65 | 73 20 77 69 6c 6c 20 62 |ber name|s will b|
|00000fe0| 65 20 61 64 64 65 64 2e | 22 29 0a 28 64 65 66 76 |e added.|").(defv|
|00000ff0| 61 72 20 61 72 63 68 69 | 76 65 2d 7a 6f 6f 2d 77 |ar archi|ve-zoo-w|
|00001000| 72 69 74 65 2d 66 69 6c | 65 2d 6d 65 6d 62 65 72 |rite-fil|e-member|
|00001010| 20 27 28 22 7a 6f 6f 22 | 20 22 61 22 29 20 22 5c | '("zoo"| "a") "\|
|00001020| 0a 2a 50 72 6f 67 72 61 | 6d 20 61 6e 64 20 69 74 |.*Progra|m and it|
|00001030| 73 20 6f 70 74 69 6f 6e | 73 20 74 6f 20 72 75 6e |s option|s to run|
|00001040| 20 69 6e 20 6f 72 64 65 | 72 20 74 6f 20 75 70 64 | in orde|r to upd|
|00001050| 61 74 65 20 61 20 7a 6f | 6f 20 66 69 6c 65 20 6d |ate a zo|o file m|
|00001060| 65 6d 62 65 72 2e 0a 41 | 72 63 68 69 76 65 20 61 |ember..A|rchive a|
|00001070| 6e 64 20 6d 65 6d 62 65 | 72 20 6e 61 6d 65 20 77 |nd membe|r name w|
|00001080| 69 6c 6c 20 62 65 20 61 | 64 64 65 64 2e 22 29 0a |ill be a|dded.").|
|00001090| 28 64 65 66 76 61 72 20 | 61 72 63 68 69 76 65 2d |(defvar |archive-|
|000010a0| 73 75 62 74 79 70 65 20 | 6e 69 6c 20 22 5c 0a 2a |subtype |nil "\.*|
|000010b0| 53 79 6d 62 6f 6c 20 64 | 65 73 63 72 69 62 69 6e |Symbol d|escribin|
|000010c0| 67 20 61 72 63 68 69 76 | 65 20 74 79 70 65 2e 22 |g archiv|e type."|
|000010d0| 29 0a 28 64 65 66 76 61 | 72 20 61 72 63 68 69 76 |).(defva|r archiv|
|000010e0| 65 2d 66 69 6c 65 2d 6c | 69 73 74 2d 73 74 61 72 |e-file-l|ist-star|
|000010f0| 74 20 6e 69 6c 20 22 5c | 0a 2a 50 6f 73 69 74 69 |t nil "\|.*Positi|
|00001100| 6f 6e 20 6f 66 20 66 69 | 72 73 74 20 63 6f 6e 74 |on of fi|rst cont|
|00001110| 65 6e 74 73 20 6c 69 6e | 65 2e 22 29 0a 28 64 65 |ents lin|e.").(de|
|00001120| 66 76 61 72 20 61 72 63 | 68 69 76 65 2d 66 69 6c |fvar arc|hive-fil|
|00001130| 65 2d 6c 69 73 74 2d 65 | 6e 64 20 6e 69 6c 20 22 |e-list-e|nd nil "|
|00001140| 5c 0a 2a 50 6f 73 69 74 | 69 6f 6e 20 6a 75 73 74 |\.*Posit|ion just|
|00001150| 20 61 66 74 65 72 20 6c | 61 73 74 20 63 6f 6e 74 | after l|ast cont|
|00001160| 65 6e 74 73 20 6c 69 6e | 65 2e 22 29 0a 28 64 65 |ents lin|e.").(de|
|00001170| 66 76 61 72 20 61 72 63 | 68 69 76 65 2d 70 72 6f |fvar arc|hive-pro|
|00001180| 70 65 72 2d 66 69 6c 65 | 2d 73 74 61 72 74 20 6e |per-file|-start n|
|00001190| 69 6c 20 22 5c 0a 2a 50 | 6f 73 69 74 69 6f 6e 20 |il "\.*P|osition |
|000011a0| 6f 66 20 72 65 61 6c 20 | 61 72 63 68 69 76 65 27 |of real |archive'|
|000011b0| 73 20 73 74 61 72 74 2e | 22 29 0a 28 64 65 66 76 |s start.|").(defv|
|000011c0| 61 72 20 61 72 63 68 69 | 76 65 2d 72 65 61 64 2d |ar archi|ve-read-|
|000011d0| 6f 6e 6c 79 20 6e 69 6c | 20 22 5c 0a 2a 4e 6f 6e |only nil| "\.*Non|
|000011e0| 2d 6e 69 6c 20 69 66 20 | 74 68 65 20 61 72 63 68 |-nil if |the arch|
|000011f0| 69 76 65 20 69 73 20 72 | 65 61 64 2d 6f 6e 6c 79 |ive is r|ead-only|
|00001200| 20 6f 6e 20 64 69 73 6b | 2e 22 29 0a 28 64 65 66 | on disk|.").(def|
|00001210| 76 61 72 20 61 72 63 68 | 69 76 65 2d 72 65 6d 6f |var arch|ive-remo|
|00001220| 74 65 20 6e 69 6c 20 22 | 5c 0a 2a 4e 6f 6e 2d 6e |te nil "|\.*Non-n|
|00001230| 69 6c 20 69 66 20 74 68 | 65 20 61 72 63 68 69 76 |il if th|e archiv|
|00001240| 65 20 69 73 20 6f 75 74 | 73 69 64 65 20 66 69 6c |e is out|side fil|
|00001250| 65 20 73 79 73 74 65 6d | 2e 22 29 0a 28 64 65 66 |e system|.").(def|
|00001260| 76 61 72 20 61 72 63 68 | 69 76 65 2d 6c 6f 63 61 |var arch|ive-loca|
|00001270| 6c 2d 6e 61 6d 65 20 6e | 69 6c 20 22 5c 0a 2a 4e |l-name n|il "\.*N|
|00001280| 61 6d 65 20 6f 66 20 6c | 6f 63 61 6c 20 63 6f 70 |ame of l|ocal cop|
|00001290| 79 20 6f 66 20 72 65 6d | 6f 74 65 20 61 72 63 68 |y of rem|ote arch|
|000012a0| 69 76 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 61 |ive.").(|defvar a|
|000012b0| 72 63 68 69 76 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |rchive-m|ode-map |
|000012c0| 6e 69 6c 20 22 5c 0a 2a | 4c 6f 63 61 6c 20 6b 65 |nil "\.*|Local ke|
|000012d0| 79 6d 61 70 20 66 6f 72 | 20 61 72 63 68 69 76 65 |ymap for| archive|
|000012e0| 20 6d 6f 64 65 20 6c 69 | 73 74 69 6e 67 73 2e 22 | mode li|stings."|
|000012f0| 29 0a 28 64 65 66 76 61 | 72 20 61 72 63 68 69 76 |).(defva|r archiv|
|00001300| 65 2d 66 69 6c 65 2d 6e | 61 6d 65 2d 69 6e 64 65 |e-file-n|ame-inde|
|00001310| 6e 74 20 6e 69 6c 20 22 | 5c 0a 2a 43 6f 6c 75 6d |nt nil "|\.*Colum|
|00001320| 6e 20 77 68 65 72 65 20 | 66 69 6c 65 20 6e 61 6d |n where |file nam|
|00001330| 65 73 20 73 74 61 72 74 | 2e 22 29 0a 28 64 65 66 |es start|.").(def|
|00001340| 76 61 72 20 61 72 63 68 | 69 76 65 2d 61 6c 74 65 |var arch|ive-alte|
|00001350| 72 6e 61 74 65 2d 64 69 | 73 70 6c 61 79 20 6e 69 |rnate-di|splay ni|
|00001360| 6c 20 22 5c 0a 2a 4e 6f | 6e 2d 6e 69 6c 20 77 68 |l "\.*No|n-nil wh|
|00001370| 65 6e 20 61 6c 74 65 72 | 6e 61 74 65 20 69 6e 66 |en alter|nate inf|
|00001380| 6f 72 6d 61 74 69 6f 6e | 20 69 73 20 73 68 6f 77 |ormation| is show|
|00001390| 6e 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |n.").(by|te-code |
|000013a0| 22 c0 c1 21 88 c2 c1 c3 | c4 23 87 22 20 5b 6d 61 |"..!....|.#." [ma|
|000013b0| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|000013c0| 65 72 2d 6c 6f 63 61 6c | 20 61 72 63 68 69 76 65 |er-local| archive|
|000013d0| 2d 61 6c 74 65 72 6e 61 | 74 65 2d 64 69 73 70 6c |-alterna|te-displ|
|000013e0| 61 79 20 70 75 74 20 70 | 65 72 6d 61 6e 65 6e 74 |ay put p|ermanent|
|000013f0| 2d 6c 6f 63 61 6c 20 74 | 5d 20 34 29 0a 28 64 65 |-local t|] 4).(de|
|00001400| 66 76 61 72 20 61 72 63 | 68 69 76 65 2d 73 75 70 |fvar arc|hive-sup|
|00001410| 65 72 69 6f 72 2d 62 75 | 66 66 65 72 20 6e 69 6c |erior-bu|ffer nil|
|00001420| 20 22 5c 0a 2a 49 6e 20 | 61 72 63 68 69 76 65 20 | "\.*In |archive |
|00001430| 6d 65 6d 62 65 72 73 2c | 20 70 6f 69 6e 74 73 20 |members,| points |
|00001440| 74 6f 20 61 72 63 68 69 | 76 65 2e 22 29 0a 28 70 |to archi|ve.").(p|
|00001450| 75 74 20 27 61 72 63 68 | 69 76 65 2d 73 75 70 65 |ut 'arch|ive-supe|
|00001460| 72 69 6f 72 2d 62 75 66 | 66 65 72 20 27 70 65 72 |rior-buf|fer 'per|
|00001470| 6d 61 6e 65 6e 74 2d 6c | 6f 63 61 6c 20 74 29 0a |manent-l|ocal t).|
|00001480| 28 64 65 66 76 61 72 20 | 61 72 63 68 69 76 65 2d |(defvar |archive-|
|00001490| 73 75 62 66 69 6c 65 2d | 6d 6f 64 65 20 6e 69 6c |subfile-|mode nil|
|000014a0| 20 22 5c 0a 2a 4e 6f 6e | 2d 6e 69 6c 20 69 6e 20 | "\.*Non|-nil in |
|000014b0| 61 72 63 68 69 76 65 20 | 6d 65 6d 62 65 72 20 62 |archive |member b|
|000014c0| 75 66 66 65 72 73 2e 22 | 29 0a 28 62 79 74 65 2d |uffers."|).(byte-|
|000014d0| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c1 c3 c4 23 88 |code "..|!.....#.|
|000014e0| c5 c6 21 ac 9d c5 c6 21 | ac 83 c7 16 06 c2 c6 c8 |..!....!|........|
|000014f0| c9 23 88 c0 c6 21 88 c2 | c6 c3 c4 23 88 ca c6 c7 |.#...!..|...#....|
|00001500| 5c 22 88 c7 87 22 20 5b | 6d 61 6b 65 2d 76 61 72 |\"..." [|make-var|
|00001510| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00001520| 61 6c 20 61 72 63 68 69 | 76 65 2d 73 75 62 66 69 |al archi|ve-subfi|
|00001530| 6c 65 2d 6d 6f 64 65 20 | 70 75 74 20 70 65 72 6d |le-mode |put perm|
|00001540| 61 6e 65 6e 74 2d 6c 6f | 63 61 6c 20 74 20 62 6f |anent-lo|cal t bo|
|00001550| 75 6e 64 70 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |undp buf|fer-file|
|00001560| 2d 74 79 70 65 20 6e 69 | 6c 20 76 61 72 69 61 62 |-type ni|l variab|
|00001570| 6c 65 2d 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |le-docum|entation|
|00001580| 20 22 2a 4e 69 6c 20 66 | 6f 72 20 64 6f 73 2d 73 | "*Nil f|or dos-s|
|00001590| 74 79 6c 65 20 74 65 78 | 74 20 66 69 6c 65 2c 20 |tyle tex|t file, |
|000015a0| 6e 6f 6e 2d 6e 69 6c 20 | 6f 74 68 65 72 77 69 73 |non-nil |otherwis|
|000015b0| 65 2e 22 20 73 65 74 2d | 64 65 66 61 75 6c 74 5d |e." set-|default]|
|000015c0| 20 34 29 0a 28 64 65 66 | 76 61 72 20 61 72 63 68 | 4).(def|var arch|
|000015d0| 69 76 65 2d 73 75 62 66 | 69 6c 65 2d 64 6f 73 20 |ive-subf|ile-dos |
|000015e0| 6e 69 6c 20 22 5c 0a 4e | 65 67 61 74 69 6f 6e 20 |nil "\.N|egation |
|000015f0| 6f 66 20 60 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |of `buff|er-file-|
|00001600| 74 79 70 65 27 20 77 68 | 69 63 68 20 73 65 65 2e |type' wh|ich see.|
|00001610| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|00001620| c1 21 88 c2 c1 c3 c4 23 | 87 22 20 5b 6d 61 6b 65 |.!.....#|." [make|
|00001630| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|00001640| 2d 6c 6f 63 61 6c 20 61 | 72 63 68 69 76 65 2d 73 |-local a|rchive-s|
|00001650| 75 62 66 69 6c 65 2d 64 | 6f 73 20 70 75 74 20 70 |ubfile-d|os put p|
|00001660| 65 72 6d 61 6e 65 6e 74 | 2d 6c 6f 63 61 6c 20 74 |ermanent|-local t|
|00001670| 5d 20 34 29 0a 28 64 65 | 66 76 61 72 20 61 72 63 |] 4).(de|fvar arc|
|00001680| 68 69 76 65 2d 66 69 6c | 65 73 20 6e 69 6c 20 22 |hive-fil|es nil "|
|00001690| 5c 0a 56 65 63 74 6f 72 | 20 6f 66 20 66 69 6c 65 |\.Vector| of file|
|000016a0| 20 64 65 73 63 72 69 70 | 74 6f 72 73 2e 20 20 45 | descrip|tors. E|
|000016b0| 61 63 68 20 64 65 73 63 | 72 69 70 74 6f 72 20 69 |ach desc|riptor i|
|000016c0| 73 0a 61 20 76 65 63 74 | 6f 72 20 6f 66 20 5b 65 |s.a vect|or of [e|
|000016d0| 78 74 2d 66 69 6c 65 2d | 6e 61 6d 65 20 69 6e 74 |xt-file-|name int|
|000016e0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 63 61 73 65 2d |-file-na|me case-|
|000016f0| 66 69 64 64 6c 65 64 20 | 6d 6f 64 65 20 2e 2e 2e |fiddled |mode ...|
|00001700| 5d 22 29 0a 28 6d 61 6b | 65 2d 76 61 72 69 61 62 |]").(mak|e-variab|
|00001710| 6c 65 2d 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 20 |le-buffe|r-local |
|00001720| 27 61 72 63 68 69 76 65 | 2d 66 69 6c 65 73 29 0a |'archive|-files).|
|00001730| 28 64 65 66 76 61 72 20 | 61 72 63 68 69 76 65 2d |(defvar |archive-|
|00001740| 6c 65 6d 61 63 73 20 28 | 73 74 72 69 6e 67 2d 6d |lemacs (|string-m|
|00001750| 61 74 63 68 20 22 5c 5c | 28 4c 75 63 69 64 5c 5c |atch "\\|(Lucid\\|
|00001760| 7c 58 45 6d 61 63 73 5c | 5c 29 22 20 65 6d 61 63 ||XEmacs\|\)" emac|
|00001770| 73 2d 76 65 72 73 69 6f | 6e 29 20 22 5c 0a 2a 4e |s-versio|n) "\.*N|
|00001780| 6f 6e 2d 6e 69 6c 20 77 | 68 65 6e 20 72 75 6e 6e |on-nil w|hen runn|
|00001790| 69 6e 67 20 75 6e 64 65 | 72 20 75 6e 64 65 72 20 |ing unde|r under |
|000017a0| 4c 75 63 69 64 20 45 6d | 61 63 73 20 6f 72 20 58 |Lucid Em|acs or X|
|000017b0| 45 6d 61 63 73 2e 22 29 | 0a 28 62 79 74 65 2d 63 |Emacs.")|.(byte-c|
|000017c0| 6f 64 65 20 22 c0 c1 4d | 88 c0 c2 4e c3 3e ac 85 |ode "..M|...N.>..|
|000017d0| c4 c5 c0 5c 22 88 c6 c0 | c2 c7 23 87 22 20 5b 61 |...\"...|..#." [a|
|000017e0| 72 63 68 69 76 65 2d 6e | 61 6d 65 20 23 5b 28 73 |rchive-n|ame #[(s|
|000017f0| 75 66 66 69 78 29 20 22 | c0 c1 c2 0b 21 c4 0d 52 |uffix) "|....!..R|
|00001800| 21 87 22 20 5b 69 6e 74 | 65 72 6e 20 22 61 72 63 |!." [int|ern "arc|
|00001810| 68 69 76 65 2d 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |hive-" s|ymbol-na|
|00001820| 6d 65 20 61 72 63 68 69 | 76 65 2d 73 75 62 74 79 |me archi|ve-subty|
|00001830| 70 65 20 22 2d 22 20 73 | 75 66 66 69 78 5d 20 35 |pe "-" s|uffix] 5|
|00001840| 5d 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |] byte-o|ptimizer|
|00001850| 20 28 6e 69 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 | (nil by|te-compi|
|00001860| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00001870| 29 20 65 72 72 6f 72 20 | 22 25 73 20 61 6c 72 65 |) error |"%s alre|
|00001880| 61 64 79 20 68 61 73 20 | 61 20 62 79 74 65 2d 6f |ady has |a byte-o|
|00001890| 70 74 69 6d 69 7a 65 72 | 2c 20 63 61 6e 27 74 20 |ptimizer|, can't |
|000018a0| 6d 61 6b 65 20 69 74 20 | 69 6e 6c 69 6e 65 22 20 |make it |inline" |
|000018b0| 70 75 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |put byte|-compile|
|000018c0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 5d 20 |-inline-|expand] |
|000018d0| 34 29 0a 28 66 73 65 74 | 20 27 61 72 63 68 69 76 |4).(fset| 'archiv|
|000018e0| 65 2d 6c 2d 65 20 23 5b | 28 73 74 72 20 26 6f 70 |e-l-e #[|(str &op|
|000018f0| 74 69 6f 6e 61 6c 20 6c | 65 6e 29 20 22 08 3b ab |tional l|en) ".;.|
|00001900| 85 08 47 11 aa 86 08 89 | 09 5c 5c 7b 10 c2 89 1b |..G.....|.\\{....|
|00001910| 1c 0b 09 57 ab 90 0b 54 | 13 c5 0c c6 5c 22 08 09 |...W...T|....\"..|
|00001920| 0b 5a 48 5c 5c 14 aa 6b | 0c 2a 87 22 20 5b 73 74 |.ZH\\..k|.*." [st|
|00001930| 72 20 6c 65 6e 20 30 20 | 69 20 72 65 73 75 6c 74 |r len 0 |i result|
|00001940| 20 61 73 68 20 38 5d 20 | 34 20 22 5c 0a 43 6f 6e | ash 8] |4 "\.Con|
|00001950| 76 65 72 74 20 6c 69 74 | 74 6c 65 20 65 6e 64 69 |vert lit|tle endi|
|00001960| 61 6e 20 73 74 72 69 6e | 67 2f 76 65 63 74 6f 72 |an strin|g/vector|
|00001970| 20 74 6f 20 69 6e 74 65 | 67 65 72 2e 20 20 41 6c | to inte|ger. Al|
|00001980| 74 65 72 6e 61 74 69 76 | 65 6c 79 2c 20 66 69 72 |ternativ|ely, fir|
|00001990| 73 74 0a 61 72 67 75 6d | 65 6e 74 20 6d 61 79 20 |st.argum|ent may |
|000019a0| 62 65 20 61 20 62 75 66 | 66 65 72 20 70 6f 73 69 |be a buf|fer posi|
|000019b0| 74 69 6f 6e 20 69 6e 20 | 74 68 65 20 63 75 72 72 |tion in |the curr|
|000019c0| 65 6e 74 20 62 75 66 66 | 65 72 20 69 6e 20 77 68 |ent buff|er in wh|
|000019d0| 69 63 68 20 63 61 73 65 | 20 61 0a 73 65 63 6f 6e |ich case| a.secon|
|000019e0| 64 20 61 72 67 75 65 6d | 6e 74 2c 20 6c 65 6e 67 |d arguem|nt, leng|
|000019f0| 74 68 2c 20 73 68 6f 75 | 6c 64 20 62 65 20 73 75 |th, shou|ld be su|
|00001a00| 70 70 6c 69 65 64 2e 22 | 5d 29 0a 28 66 73 65 74 |pplied."|]).(fset|
|00001a10| 20 27 61 72 63 68 69 76 | 65 2d 69 6e 74 2d 74 6f | 'archiv|e-int-to|
|00001a20| 2d 6d 6f 64 65 20 23 5b | 28 6d 6f 64 65 29 20 22 |-mode #[|(mode) "|
|00001a30| c0 c1 c2 5c 22 1b c4 c5 | c6 0e 07 5c 22 21 ac 85 |...\"...|...\"!..|
|00001a40| 0b c8 c9 49 88 c4 c5 ca | 0e 07 5c 22 21 ac 85 0b |...I....|..\"!...|
|00001a50| c8 cb 49 88 c4 c5 cc 0e | 07 5c 22 21 ac 85 0b cd |..I.....|.\"!....|
|00001a60| ce 49 88 c4 c5 cf 0e 07 | 5c 22 21 ac 85 0b d0 d1 |.I......|\"!.....|
|00001a70| 49 88 c4 c5 d2 0e 07 5c | 22 21 ac 85 0b d3 d4 49 |I......\|"!.....I|
|00001a80| 88 c4 c5 d5 0e 07 5c 22 | 21 ac 85 0b d6 ce 49 88 |......\"|!.....I.|
|00001a90| c4 c5 d7 0e 07 5c 22 21 | ac 85 0b d8 d1 49 88 c4 |.....\"!|.....I..|
|00001aa0| c5 d9 0e 07 5c 22 21 ac | 85 0b da d4 49 88 c4 c5 |....\"!.|....I...|
|00001ab0| d6 0e 07 5c 22 21 ac 85 | 0b db ce 49 88 c4 c5 d0 |...\"!..|...I....|
|00001ac0| 0e 07 5c 22 21 ac 85 0b | d9 d1 49 88 c4 c5 cd 0e |..\"!...|..I.....|
|00001ad0| 07 5c 22 21 ac 85 0b dc | d4 49 88 c4 c5 dd 0e 07 |.\"!....|.I......|
|00001ae0| 5c 22 21 ac 91 0b d3 c5 | 0e 07 d2 5c 22 c8 55 ab |\"!.....|...\".U.|
|00001af0| 83 de aa 81 df 49 88 c4 | c5 e0 0e 07 5c 22 21 ac |.....I..|....\"!.|
|00001b00| 91 0b da c5 0e 07 d9 5c | 22 c8 55 ab 83 de aa 81 |.......\|".U.....|
|00001b10| df 49 88 0b 29 87 22 20 | 5b 6d 61 6b 65 2d 73 74 |.I..)." |[make-st|
|00001b20| 72 69 6e 67 20 31 30 20 | 34 35 20 73 74 72 20 7a |ring 10 |45 str z|
|00001b30| 65 72 6f 70 20 6c 6f 67 | 61 6e 64 20 31 36 33 38 |erop log|and 1638|
|00001b40| 34 20 6d 6f 64 65 20 30 | 20 31 30 30 20 38 31 39 |4 mode 0| 100 819|
|00001b50| 32 20 39 39 20 32 35 36 | 20 31 20 31 31 34 20 31 |2 99 256| 1 114 1|
|00001b60| 32 38 20 32 20 31 31 39 | 20 36 34 20 33 20 31 32 |28 2 119| 64 3 12|
|00001b70| 30 20 33 32 20 34 20 31 | 36 20 35 20 38 20 36 20 |0 32 4 1|6 5 8 6 |
|00001b80| 37 20 39 20 31 30 32 34 | 20 38 33 20 31 31 35 20 |7 9 1024| 83 115 |
|00001b90| 32 30 34 38 5d 20 35 20 | 22 5c 0a 54 75 72 6e 20 |2048] 5 |"\.Turn |
|00001ba0| 61 6e 20 69 6e 74 65 67 | 65 72 20 6c 69 6b 65 20 |an integ|er like |
|00001bb0| 30 37 30 30 20 28 69 2e | 65 2e 2c 20 34 34 38 29 |0700 (i.|e., 448)|
|00001bc0| 20 69 6e 74 6f 20 61 20 | 6d 6f 64 65 20 73 74 72 | into a |mode str|
|00001bd0| 69 6e 67 20 6c 69 6b 65 | 20 2d 72 77 78 2d 2d 2d |ing like| -rwx---|
|00001be0| 2d 2d 2d 22 5d 29 0a 28 | 66 73 65 74 20 27 61 72 |---"]).(|fset 'ar|
|00001bf0| 63 68 69 76 65 2d 63 61 | 6c 63 2d 6d 6f 64 65 20 |chive-ca|lc-mode |
|00001c00| 23 5b 28 6f 6c 64 6d 6f | 64 65 20 6e 65 77 6d 6f |#[(oldmo|de newmo|
|00001c10| 64 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 65 72 72 |de &opti|onal err|
|00001c20| 6f 72 29 20 22 c0 c1 5c | 6e 5c 22 ab ad c3 5c 6e |or) "..\|n\"...\n|
|00001c30| 47 c4 1d 1e 06 1e 07 0d | 0e 06 57 ab 93 c8 0e 07 |G.......|..W.....|
|00001c40| c9 5c 22 5c 6e 0d 48 ca | 5c 5c 5c 5c 16 07 0d 54 |.\"\n.H.|\\\\...T|
|00001c50| 89 15 aa 68 cb cc 0e 0d | ce 5c 22 0e 07 5c 22 2b |...h....|.\"..\"+|
|00001c60| 87 c0 cf 5c 6e 5c 22 83 | fe 00 c3 0e 0d 5c 6e d0 |...\n\".|.....\n.|
|00001c70| 94 48 c3 c9 94 1d 1e 11 | 1e 12 1e 07 1e 13 0d c9 |.H......|........|
|00001c80| 95 57 ab bc 5c 6e 0d 48 | 1e 14 cb 0e 11 0e 14 d5 |.W..\n.H|........|
|00001c90| 55 ab 83 d6 aa a2 0e 14 | d7 55 ab 83 d8 aa 99 0e |U.......|.U......|
|00001ca0| 14 d9 55 ab 83 da aa 90 | 0e 14 db 55 ab 83 dc aa |..U.....|...U....|
|00001cb0| 87 0e 14 dd 55 ad 81 de | 5c 22 16 11 0d 54 15 29 |....U...|\"...T.)|
|00001cc0| aa 3e 0e 13 c4 95 57 ab | e4 5c 6e 0e 13 48 89 1e |.>....W.|.\n..H..|
|00001cd0| 1f e0 55 ab 83 e1 aa 99 | 0e 1f e2 55 ab 83 e3 aa |..U.....|...U....|
|00001ce0| 90 0e 1f e4 55 ab 83 e5 | aa 87 0e 1f e6 55 ad 81 |....U...|.....U..|
|00001cf0| e7 1e 28 0e 12 e9 55 ab | 8a cc 0e 07 ea 0e 28 21 |..(...U.|......(!|
|00001d00| 5c 22 16 07 0e 12 eb 55 | ab 90 cc 0e 07 ea cc 0e |\".....U|........|
|00001d10| 28 0e 11 5c 22 21 5c 22 | 16 07 aa 8c cb 0e 07 cc |(..\"!\"|........|
|00001d20| 0e 28 0e 11 5c 22 5c 22 | 16 07 2a 0e 13 54 89 16 |.(..\"\"|..*..T..|
|00001d30| 13 aa 17 0e 07 2d 87 0e | 2c ad 84 ec ed 5c 6e 5c |.....-..|,....\n\|
|00001d40| 22 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |"." [str|ing-matc|
|00001d50| 68 20 22 5e 30 5b 30 2d | 37 5d 2a 24 22 20 6e 65 |h "^0[0-|7]*$" ne|
|00001d60| 77 6d 6f 64 65 20 30 20 | 31 20 69 20 6c 65 6e 20 |wmode 0 |1 i len |
|00001d70| 72 65 73 75 6c 74 20 6c | 73 68 20 33 20 2d 34 38 |result l|sh 3 -48|
|00001d80| 20 6c 6f 67 69 6f 72 20 | 6c 6f 67 61 6e 64 20 6f | logior |logand o|
|00001d90| 6c 64 6d 6f 64 65 20 36 | 35 30 32 34 20 22 5e 5c |ldmode 6|5024 "^\|
|00001da0| 5c 28 5b 61 67 6f 75 5d | 2b 5c 5c 29 5c 5c 28 5b |\([agou]|+\\)\\([|
|00001db0| 2d 2d 2d 2b 3d 5d 5c 5c | 29 5c 5c 28 5b 72 77 78 |---+=]\\|)\\([rwx|
|00001dc0| 73 74 5d 2b 5c 5c 29 24 | 22 20 32 20 62 69 74 73 |st]+\\)$|" 2 bits|
|00001dd0| 20 6f 70 20 77 68 6f 20 | 72 77 78 20 31 31 34 20 | op who |rwx 114 |
|00001de0| 32 39 32 20 31 31 39 20 | 31 34 36 20 31 32 30 20 |292 119 |146 120 |
|00001df0| 37 33 20 31 31 35 20 33 | 30 37 32 20 31 31 36 20 |73 115 3|072 116 |
|00001e00| 35 31 32 20 77 68 6f 63 | 20 39 37 20 34 30 39 35 |512 whoc| 97 4095|
|00001e10| 20 31 31 37 20 31 34 37 | 32 20 31 30 33 20 32 31 | 117 147|2 103 21|
|00001e20| 30 34 20 31 31 31 20 37 | 20 77 68 6f 6d 61 73 6b |04 111 7| whomask|
|00001e30| 20 36 31 20 6c 6f 67 6e | 6f 74 20 34 35 20 65 72 | 61 logn|ot 45 er|
|00001e40| 72 6f 72 20 22 49 6e 76 | 61 6c 69 64 20 6d 6f 64 |ror "Inv|alid mod|
|00001e50| 65 20 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 3a |e specif|ication:|
|00001e60| 20 25 73 22 5d 20 37 20 | 22 5c 0a 46 72 6f 6d 20 | %s"] 7 |"\.From |
|00001e70| 74 68 65 20 69 6e 74 65 | 67 65 72 20 4f 4c 44 4d |the inte|ger OLDM|
|00001e80| 4f 44 45 20 61 6e 64 20 | 74 68 65 20 73 74 72 69 |ODE and |the stri|
|00001e90| 6e 67 20 4e 45 57 4d 4f | 44 45 20 63 61 6c 63 75 |ng NEWMO|DE calcu|
|00001ea0| 6c 61 74 65 20 61 20 6e | 65 77 20 66 69 6c 65 0a |late a n|ew file.|
|00001eb0| 6d 6f 64 65 2e 0a 0a 4e | 45 57 4d 4f 44 45 20 6d |mode...N|EWMODE m|
|00001ec0| 61 79 20 62 65 20 61 6e | 20 6f 63 74 61 6c 20 6e |ay be an| octal n|
|00001ed0| 75 6d 62 65 72 20 69 6e | 63 6c 75 64 69 6e 67 20 |umber in|cluding |
|00001ee0| 61 20 6c 65 61 64 69 6e | 67 20 7a 65 72 6f 20 69 |a leadin|g zero i|
|00001ef0| 6e 20 77 68 69 63 68 20 | 63 61 73 65 20 69 74 0a |n which |case it.|
|00001f00| 77 69 6c 6c 20 62 65 63 | 6f 6d 65 20 74 68 65 20 |will bec|ome the |
|00001f10| 6e 65 77 20 6d 6f 64 65 | 2e 0a 0a 4e 45 57 4d 4f |new mode|...NEWMO|
|00001f20| 44 45 20 6d 61 79 20 61 | 6c 73 6f 20 62 65 20 61 |DE may a|lso be a|
|00001f30| 20 72 65 6c 61 74 69 76 | 65 20 73 70 65 63 69 66 | relativ|e specif|
|00001f40| 69 63 61 74 69 6f 6e 20 | 6c 69 6b 65 20 5c 22 6f |ication |like \"o|
|00001f50| 67 2d 72 77 78 5c 22 20 | 69 6e 20 77 68 69 63 68 |g-rwx\" |in which|
|00001f60| 20 63 61 73 65 0a 4f 4c | 44 4d 4f 44 45 20 77 69 | case.OL|DMODE wi|
|00001f70| 6c 6c 20 62 65 20 6d 6f | 64 69 66 69 65 64 20 61 |ll be mo|dified a|
|00001f80| 63 63 6f 72 64 69 6e 67 | 6c 79 20 6a 75 73 74 20 |ccording|ly just |
|00001f90| 6c 69 6b 65 20 63 68 6d | 6f 64 28 32 29 20 77 6f |like chm|od(2) wo|
|00001fa0| 75 6c 64 20 68 61 76 65 | 20 64 6f 6e 65 2e 0a 0a |uld have| done...|
|00001fb0| 49 66 20 6f 70 74 69 6f | 6e 61 6c 20 74 68 69 72 |If optio|nal thir|
|00001fc0| 64 20 61 72 67 75 6d 65 | 6e 74 20 45 52 52 4f 52 |d argume|nt ERROR|
|00001fd0| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 20 61 6e 20 65 | is non-|nil an e|
|00001fe0| 72 72 6f 72 20 77 69 6c | 6c 20 62 65 20 73 69 67 |rror wil|l be sig|
|00001ff0| 6e 61 6c 65 64 20 69 66 | 0a 74 68 65 20 6d 6f 64 |naled if|.the mod|
|00002000| 65 20 69 73 20 69 6e 76 | 61 6c 69 64 2e 20 20 49 |e is inv|alid. I|
|00002010| 66 20 45 52 52 4f 52 20 | 69 73 20 6e 69 6c 20 74 |f ERROR |is nil t|
|00002020| 68 65 6e 20 6e 69 6c 20 | 77 69 6c 6c 20 62 65 20 |hen nil |will be |
|00002030| 72 65 74 75 72 6e 65 64 | 2e 22 5d 29 0a 28 66 73 |returned|."]).(fs|
|00002040| 65 74 20 27 61 72 63 68 | 69 76 65 2d 64 6f 73 64 |et 'arch|ive-dosd|
|00002050| 61 74 65 20 23 5b 28 64 | 61 74 65 29 20 22 c0 c1 |ate #[(d|ate) "..|
|00002060| 5c 6e c3 5c 22 c4 5c 22 | c5 5c 5c c0 c1 5c 6e c6 |\n.\".\"|.\\..\n.|
|00002070| 5c 22 c7 5c 22 c0 5c 6e | c8 5c 22 1e 09 1e 5c 6e |\".\".\n|.\"...\n|
|00002080| 1e 0b 0e 5c 6e cc 56 ac | 86 0e 5c 6e cd 57 ab 83 |...\n.V.|..\n.W..|
|00002090| ce aa 8c cf d0 0e 09 d1 | 0e 5c 6e 53 48 0e 0b 24 |........|.\nSH..$|
|000020a0| 2b 87 22 20 5b 6c 6f 67 | 61 6e 64 20 61 73 68 20 |+." [log|and ash |
|000020b0| 64 61 74 65 20 2d 39 20 | 31 32 37 20 31 39 38 30 |date -9 |127 1980|
|000020c0| 20 2d 35 20 31 35 20 33 | 31 20 64 61 79 20 6d 6f | -5 15 3|1 day mo|
|000020d0| 6e 74 68 20 79 65 61 72 | 20 31 32 20 31 20 22 22 |nth year| 12 1 ""|
|000020e0| 20 66 6f 72 6d 61 74 20 | 22 25 32 64 2d 25 73 2d | format |"%2d-%s-|
|000020f0| 25 64 22 20 5b 22 4a 61 | 6e 22 20 22 46 65 62 22 |%d" ["Ja|n" "Feb"|
|00002100| 20 22 4d 61 72 22 20 22 | 41 70 72 22 20 22 4d 61 | "Mar" "|Apr" "Ma|
|00002110| 79 22 20 22 4a 75 6e 22 | 20 22 4a 75 6c 22 20 22 |y" "Jun"| "Jul" "|
|00002120| 41 75 67 22 20 22 53 65 | 70 22 20 22 4f 63 74 22 |Aug" "Se|p" "Oct"|
|00002130| 20 22 4e 6f 76 22 20 22 | 44 65 63 22 5d 5d 20 35 | "Nov" "|Dec"]] 5|
|00002140| 20 22 5c 0a 53 74 72 69 | 6e 67 69 66 79 20 64 6f | "\.Stri|ngify do|
|00002150| 73 20 70 61 63 6b 65 64 | 20 44 41 54 45 20 72 65 |s packed| DATE re|
|00002160| 63 6f 72 64 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |cord."])|.(fset '|
|00002170| 61 72 63 68 69 76 65 2d | 64 6f 73 74 69 6d 65 20 |archive-|dostime |
|00002180| 23 5b 28 74 69 6d 65 29 | 20 22 c0 c1 5c 6e c3 5c |#[(time)| "..\n.\|
|00002190| 22 c4 5c 22 c0 c1 5c 6e | c5 5c 22 c6 5c 22 c0 5c |".\"..\n|.\".\".\|
|000021a0| 6e c4 5c 22 c7 5f 1e 08 | 1e 09 1e 5c 6e cb cc 0e |n.\"._..|...\n...|
|000021b0| 5c 6e 0e 09 0e 08 24 2b | 87 22 20 5b 6c 6f 67 61 |\n....$+|." [loga|
|000021c0| 6e 64 20 61 73 68 20 74 | 69 6d 65 20 2d 31 31 20 |nd ash t|ime -11 |
|000021d0| 33 31 20 2d 35 20 35 33 | 20 32 20 73 65 63 6f 6e |31 -5 53| 2 secon|
|000021e0| 64 20 6d 69 6e 75 74 65 | 20 68 6f 75 72 20 66 6f |d minute| hour fo|
|000021f0| 72 6d 61 74 20 22 25 30 | 32 64 3a 25 30 32 64 3a |rmat "%0|2d:%02d:|
|00002200| 25 30 32 64 22 5d 20 35 | 20 22 5c 0a 53 74 72 69 |%02d"] 5| "\.Stri|
|00002210| 6e 67 69 66 79 20 64 6f | 73 20 70 61 63 6b 65 64 |ngify do|s packed|
|00002220| 20 54 49 4d 45 20 72 65 | 63 6f 72 64 2e 22 5d 29 | TIME re|cord."])|
|00002230| 0a 28 66 73 65 74 20 27 | 61 72 63 68 69 76 65 2d |.(fset '|archive-|
|00002240| 67 65 74 2d 6c 69 6e 65 | 6e 6f 20 23 5b 6e 69 6c |get-line|no #[nil|
|00002250| 20 22 60 08 59 ab 8a c1 | 08 8a c2 79 88 60 29 5c | "`.Y...|...y.`)\|
|00002260| 22 87 c2 87 22 20 5b 61 | 72 63 68 69 76 65 2d 66 |"..." [a|rchive-f|
|00002270| 69 6c 65 2d 6c 69 73 74 | 2d 73 74 61 72 74 20 63 |ile-list|-start c|
|00002280| 6f 75 6e 74 2d 6c 69 6e | 65 73 20 30 5d 20 33 5d |ount-lin|es 0] 3]|
|00002290| 29 0a 28 66 73 65 74 20 | 27 61 72 63 68 69 76 65 |).(fset |'archive|
|000022a0| 2d 67 65 74 2d 64 65 73 | 63 72 20 23 5b 28 26 6f |-get-des|cr #[(&o|
|000022b0| 70 74 69 6f 6e 61 6c 20 | 6e 6f 65 72 72 6f 72 29 |ptional |noerror)|
|000022c0| 20 22 c0 20 19 60 5c 6e | 59 ab 9d 09 0b 47 57 ab | ". .`\n|Y....GW.|
|000022d0| 97 0b 09 48 1c c5 0c 21 | ab 83 0c aa 88 0e 06 3f |...H...!|.......?|
|000022e0| ad 83 c7 c8 21 29 aa 88 | 0e 06 3f ad 83 c7 c9 21 |....!)..|..?....!|
|000022f0| 29 87 22 20 5b 61 72 63 | 68 69 76 65 2d 67 65 74 |)." [arc|hive-get|
|00002300| 2d 6c 69 6e 65 6e 6f 20 | 6e 6f 20 61 72 63 68 69 |-lineno |no archi|
|00002310| 76 65 2d 66 69 6c 65 2d | 6c 69 73 74 2d 73 74 61 |ve-file-|list-sta|
|00002320| 72 74 20 61 72 63 68 69 | 76 65 2d 66 69 6c 65 73 |rt archi|ve-files|
|00002330| 20 69 74 65 6d 20 76 65 | 63 74 6f 72 70 20 6e 6f | item ve|ctorp no|
|00002340| 65 72 72 6f 72 20 65 72 | 72 6f 72 20 22 45 6e 74 |error er|ror "Ent|
|00002350| 72 79 20 69 73 20 6e 6f | 74 20 61 20 72 65 67 75 |ry is no|t a regu|
|00002360| 6c 61 72 20 6d 65 6d 62 | 65 72 20 6f 66 20 74 68 |lar memb|er of th|
|00002370| 65 20 61 72 63 68 69 76 | 65 22 20 22 4c 69 6e 65 |e archiv|e" "Line|
|00002380| 20 64 6f 65 73 20 6e 6f | 74 20 64 65 73 63 72 69 | does no|t descri|
|00002390| 62 65 20 61 20 6d 65 6d | 62 65 72 20 6f 66 20 74 |be a mem|ber of t|
|000023a0| 68 65 20 61 72 63 68 69 | 76 65 22 5d 20 32 20 22 |he archi|ve"] 2 "|
|000023b0| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 64 65 73 |\.Return| the des|
|000023c0| 63 72 69 70 74 6f 72 20 | 76 65 63 74 6f 72 20 66 |criptor |vector f|
|000023d0| 6f 72 20 66 69 6c 65 20 | 61 74 20 70 6f 69 6e 74 |or file |at point|
|000023e0| 2e 20 20 44 6f 20 6e 6f | 74 20 73 69 67 6e 61 6c |. Do no|t signal|
|000023f0| 20 61 6e 20 65 72 72 6f | 72 0a 69 66 20 6f 70 74 | an erro|r.if opt|
|00002400| 69 6f 6e 61 6c 20 73 65 | 63 6f 6e 64 20 61 72 67 |ional se|cond arg|
|00002410| 75 6d 65 6e 74 20 4e 4f | 45 52 52 4f 52 20 69 73 |ument NO|ERROR is|
|00002420| 20 6e 6f 6e 2d 6e 69 6c | 2e 22 5d 29 0a 28 66 73 | non-nil|."]).(fs|
|00002430| 65 74 20 27 61 72 63 68 | 69 76 65 2d 6d 6f 64 65 |et 'arch|ive-mode|
|00002440| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 6f | #[(&opt|ional fo|
|00002450| 72 63 65 29 20 22 c0 20 | c1 55 ab 83 5c 6e 20 87 |rce) ". |.U..\n .|
|00002460| 0b 3f ad 81 0c 3f 85 ab | 00 c5 20 1e 06 c7 c8 0e |.?...?..|.. .....|
|00002470| 06 21 21 89 1e 09 c1 0e | 09 c1 48 96 49 88 ca 20 |.!!.....|..H.I.. |
|00002480| 88 cb cc 21 88 0e 06 16 | 0c cb cd 21 88 ce 16 0d |...!....|...!....|
|00002490| cf c1 21 88 cb d0 21 88 | d1 d0 d2 5c 22 88 cb d3 |..!...!.|...\"...|
|000024a0| 21 88 d4 16 13 cb d5 21 | 88 d4 16 15 d6 16 17 cb |!......!|........|
|000024b0| d8 21 88 d9 da 20 21 3f | 16 18 cb db 21 88 cb dc |.!... !?|....!...|
|000024c0| 21 88 dd 0e 1e da 20 5c | 22 16 1c df 16 20 0e 09 |!..... \|".... ..|
|000024d0| e1 50 16 5c 22 e3 e4 1e | 25 e6 e7 c8 0e 0c 21 e8 |.P.\"...|%.....!.|
|000024e0| 0e 25 52 21 29 e9 5c 22 | 88 ea 0e 2b 21 88 2a cb |.%R!).\"|...+!.*.|
|000024f0| ec 21 88 cb ed 21 88 cb | ee 21 88 cb ef 21 88 f0 |.!...!..|.!...!..|
|00002500| 20 88 d6 89 16 31 87 22 | 20 5b 62 75 66 66 65 72 | ....1."| [buffer|
|00002510| 2d 73 69 7a 65 20 30 20 | 64 65 66 61 75 6c 74 2d |-size 0 |default-|
|00002520| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 66 6f 72 63 65 |major-mo|de force|
|00002530| 20 61 72 63 68 69 76 65 | 2d 66 69 6c 65 73 20 61 | archive|-files a|
|00002540| 72 63 68 69 76 65 2d 66 | 69 6e 64 2d 74 79 70 65 |rchive-f|ind-type|
|00002550| 20 74 79 70 65 20 63 6f | 70 79 2d 73 65 71 75 65 | type co|py-seque|
|00002560| 6e 63 65 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |nce symb|ol-name |
|00002570| 74 79 70 65 6e 61 6d 65 | 20 6b 69 6c 6c 2d 61 6c |typename| kill-al|
|00002580| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|00002590| 73 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |s make-l|ocal-var|
|000025a0| 69 61 62 6c 65 20 61 72 | 63 68 69 76 65 2d 73 75 |iable ar|chive-su|
|000025b0| 62 74 79 70 65 20 72 65 | 76 65 72 74 2d 62 75 66 |btype re|vert-buf|
|000025c0| 66 65 72 2d 66 75 6e 63 | 74 69 6f 6e 20 61 72 63 |fer-func|tion arc|
|000025d0| 68 69 76 65 2d 6d 6f 64 | 65 2d 72 65 76 65 72 74 |hive-mod|e-revert|
|000025e0| 20 61 75 74 6f 2d 73 61 | 76 65 2d 6d 6f 64 65 20 | auto-sa|ve-mode |
|000025f0| 6c 6f 63 61 6c 2d 77 72 | 69 74 65 2d 66 69 6c 65 |local-wr|ite-file|
|00002600| 2d 68 6f 6f 6b 73 20 61 | 64 64 2d 68 6f 6f 6b 20 |-hooks a|dd-hook |
|00002610| 61 72 63 68 69 76 65 2d | 77 72 69 74 65 2d 66 69 |archive-|write-fi|
|00002620| 6c 65 20 72 65 71 75 69 | 72 65 2d 66 69 6e 61 6c |le requi|re-final|
|00002630| 2d 6e 65 77 6c 69 6e 65 | 20 6e 69 6c 20 65 6e 61 |-newline| nil ena|
|00002640| 62 6c 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ble-loca|l-variab|
|00002650| 6c 65 73 20 74 20 62 75 | 66 66 65 72 2d 66 69 6c |les t bu|ffer-fil|
|00002660| 65 2d 74 79 70 65 20 61 | 72 63 68 69 76 65 2d 72 |e-type a|rchive-r|
|00002670| 65 61 64 2d 6f 6e 6c 79 | 20 66 69 6c 65 2d 77 72 |ead-only| file-wr|
|00002680| 69 74 61 62 6c 65 2d 70 | 20 62 75 66 66 65 72 2d |itable-p| buffer-|
|00002690| 66 69 6c 65 2d 6e 61 6d | 65 20 61 72 63 68 69 76 |file-nam|e archiv|
|000026a0| 65 2d 6c 6f 63 61 6c 2d | 6e 61 6d 65 20 61 72 63 |e-local-|name arc|
|000026b0| 68 69 76 65 2d 72 65 6d | 6f 74 65 20 73 74 72 69 |hive-rem|ote stri|
|000026c0| 6e 67 2d 6d 61 74 63 68 | 20 61 72 63 68 69 76 65 |ng-match| archive|
|000026d0| 2d 72 65 6d 6f 74 65 2d | 72 65 67 65 78 70 20 61 |-remote-|regexp a|
|000026e0| 72 63 68 69 76 65 2d 6d | 6f 64 65 20 6d 61 6a 6f |rchive-m|ode majo|
|000026f0| 72 2d 6d 6f 64 65 20 22 | 2d 41 72 63 68 69 76 65 |r-mode "|-Archive|
|00002700| 22 20 6d 6f 64 65 2d 6e | 61 6d 65 20 72 75 6e 2d |" mode-n|ame run-|
|00002710| 68 6f 6f 6b 73 20 22 6d | 6f 64 65 2d 68 6f 6f 6b |hooks "m|ode-hook|
|00002720| 22 20 73 75 66 66 69 78 | 20 69 6e 74 65 72 6e 20 |" suffix| intern |
|00002730| 22 61 72 63 68 69 76 65 | 2d 22 20 22 2d 22 20 61 |"archive|-" "-" a|
|00002740| 72 63 68 69 76 65 2d 6d | 6f 64 65 2d 68 6f 6f 6b |rchive-m|ode-hook|
|00002750| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 61 | use-loc|al-map a|
|00002760| 72 63 68 69 76 65 2d 6d | 6f 64 65 2d 6d 61 70 20 |rchive-m|ode-map |
|00002770| 61 72 63 68 69 76 65 2d | 70 72 6f 70 65 72 2d 66 |archive-|proper-f|
|00002780| 69 6c 65 2d 73 74 61 72 | 74 20 61 72 63 68 69 76 |ile-star|t archiv|
|00002790| 65 2d 66 69 6c 65 2d 6c | 69 73 74 2d 73 74 61 72 |e-file-l|ist-star|
|000027a0| 74 20 61 72 63 68 69 76 | 65 2d 66 69 6c 65 2d 6c |t archiv|e-file-l|
|000027b0| 69 73 74 2d 65 6e 64 20 | 61 72 63 68 69 76 65 2d |ist-end |archive-|
|000027c0| 66 69 6c 65 2d 6e 61 6d | 65 2d 69 6e 64 65 6e 74 |file-nam|e-indent|
|000027d0| 20 61 72 63 68 69 76 65 | 2d 73 75 6d 6d 61 72 69 | archive|-summari|
|000027e0| 7a 65 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |ze buffe|r-read-o|
|000027f0| 6e 6c 79 5d 20 37 20 22 | 5c 0a 4d 61 6a 6f 72 20 |nly] 7 "|\.Major |
|00002800| 6d 6f 64 65 20 66 6f 72 | 20 76 69 65 77 69 6e 67 |mode for| viewing|
|00002810| 20 61 6e 20 61 72 63 68 | 69 76 65 20 66 69 6c 65 | an arch|ive file|
|00002820| 20 61 73 20 61 20 64 69 | 72 65 64 2d 6c 69 6b 65 | as a di|red-like|
|00002830| 20 6c 69 73 74 69 6e 67 | 20 6f 66 20 69 74 73 0a | listing| of its.|
|00002840| 63 6f 6e 74 65 6e 74 73 | 2e 20 20 59 6f 75 20 63 |contents|. You c|
|00002850| 61 6e 20 6d 6f 76 65 20 | 61 72 6f 75 6e 64 20 75 |an move |around u|
|00002860| 73 69 6e 67 20 74 68 65 | 20 75 73 75 61 6c 20 63 |sing the| usual c|
|00002870| 75 72 73 6f 72 20 6d 6f | 74 69 6f 6e 20 63 6f 6d |ursor mo|tion com|
|00002880| 6d 61 6e 64 73 2e 0a 4c | 65 74 74 65 72 73 20 6e |mands..L|etters n|
|00002890| 6f 20 6c 6f 6e 67 65 72 | 20 69 6e 73 65 72 74 20 |o longer| insert |
|000028a0| 74 68 65 6d 73 65 6c 76 | 65 73 2e 0a 54 79 70 65 |themselv|es..Type|
|000028b0| 20 60 65 27 20 74 6f 20 | 70 75 6c 6c 20 61 20 66 | `e' to |pull a f|
|000028c0| 69 6c 65 20 6f 75 74 20 | 6f 66 20 74 68 65 20 61 |ile out |of the a|
|000028d0| 72 63 68 69 76 65 20 61 | 6e 64 20 69 6e 74 6f 20 |rchive a|nd into |
|000028e0| 69 74 73 20 6f 77 6e 20 | 62 75 66 66 65 72 3b 0a |its own |buffer;.|
|000028f0| 6f 72 20 63 6c 69 63 6b | 20 6d 6f 75 73 65 2d 32 |or click| mouse-2|
|00002900| 20 6f 6e 20 74 68 65 20 | 66 69 6c 65 27 73 20 6c | on the |file's l|
|00002910| 69 6e 65 20 69 6e 20 74 | 68 65 20 61 72 63 68 69 |ine in t|he archi|
|00002920| 76 65 20 6d 6f 64 65 20 | 62 75 66 66 65 72 2e 0a |ve mode |buffer..|
|00002930| 0a 49 66 20 79 6f 75 20 | 65 64 69 74 20 61 20 73 |.If you |edit a s|
|00002940| 75 62 2d 66 69 6c 65 20 | 6f 66 20 74 68 69 73 20 |ub-file |of this |
|00002950| 61 72 63 68 69 76 65 20 | 28 61 73 20 77 69 74 68 |archive |(as with|
|00002960| 20 74 68 65 20 60 65 27 | 20 63 6f 6d 6d 61 6e 64 | the `e'| command|
|00002970| 29 20 61 6e 64 0a 73 61 | 76 65 20 69 74 2c 20 74 |) and.sa|ve it, t|
|00002980| 68 65 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 74 |he conte|nts of t|
|00002990| 68 61 74 20 62 75 66 66 | 65 72 20 77 69 6c 6c 20 |hat buff|er will |
|000029a0| 62 65 20 73 61 76 65 64 | 20 62 61 63 6b 20 69 6e |be saved| back in|
|000029b0| 74 6f 20 74 68 65 0a 61 | 72 63 68 69 76 65 2e 0a |to the.a|rchive..|
|000029c0| 0a 5c 5c 7b 61 72 63 68 | 69 76 65 2d 6d 6f 64 65 |.\\{arch|ive-mode|
|000029d0| 2d 6d 61 70 7d 22 5d 29 | 0a 28 62 79 74 65 2d 63 |-map}"])|.(byte-c|
|000029e0| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 0c 84 db 01 c5 |ode "...|.#......|
|000029f0| 20 14 c6 0c 21 88 c7 0c | c8 c9 23 88 c7 0c ca cb | ...!...|..#.....|
|00002a00| 23 88 c7 0c cc cd 23 88 | c7 0c ce cd 23 88 c7 0c |#.....#.|....#...|
|00002a10| cf d0 23 88 c7 0c d1 d0 | 23 88 c7 0c d2 d0 23 88 |..#.....|#.....#.|
|00002a20| c7 0c d3 d4 23 88 c7 0c | d5 d6 23 88 c7 0c d7 d8 |....#...|..#.....|
|00002a30| 23 88 c7 0c d9 c9 23 88 | c7 0c da c9 23 88 c7 0c |#.....#.|....#...|
|00002a40| db c9 23 88 c7 0c dc dd | 23 88 c7 0c de df 23 88 |..#.....|#.....#.|
|00002a50| c7 0c e0 df 23 88 c7 0c | e1 df 23 88 c7 0c e2 e3 |....#...|..#.....|
|00002a60| 23 88 c7 0c e4 e5 23 88 | c7 0c e6 e7 23 88 c7 0c |#.....#.|....#...|
|00002a70| e8 e9 23 88 c7 0c ea eb | 23 88 c7 0c ec ed 23 88 |..#.....|#.....#.|
|00002a80| c7 0c ee dd 23 88 c7 0c | ef f0 23 88 c7 0c f1 f2 |....#...|..#.....|
|00002a90| 23 88 c7 0c f3 f4 23 88 | 0e 35 ab 8e c7 0c f6 f7 |#.....#.|.5......|
|00002aa0| 23 88 c7 0c f8 f7 23 88 | aa 88 f9 fa f7 0c 0e 3b |#.....#.|.......;|
|00002ab0| 24 88 c7 0c 0e 35 ab 83 | fc aa 81 fd fe 23 88 0e |$....5..|.....#..|
|00002ac0| 35 84 db 01 c7 0c ff 81 | 40 00 23 88 c7 0c 81 41 |5.......|@.#....A|
|00002ad0| 00 81 42 00 81 43 00 81 | 42 00 21 42 23 88 c7 0c |..B..C..|B.!B#...|
|00002ae0| 81 44 00 81 45 00 23 88 | c0 cb 81 46 00 81 47 00 |.D..E.#.|...F..G.|
|00002af0| 23 88 c7 0c 81 48 00 81 | 49 00 23 88 c7 0c 81 4a |#....H..|I.#....J|
|00002b00| 00 81 4b 00 23 88 c7 0c | 81 4c 00 81 4d 00 23 88 |..K.#...|.L..M.#.|
|00002b10| c7 0c 81 4e 00 81 4f 00 | 23 88 c7 0c 81 50 00 81 |...N..O.|#....P..|
|00002b20| 51 00 81 43 00 81 51 00 | 21 42 23 88 c7 0c 81 52 |Q..C..Q.|!B#....R|
|00002b30| 00 81 53 00 23 88 c7 0c | 81 54 00 81 55 00 23 88 |..S.#...|.T..U.#.|
|00002b40| c7 0c 81 56 00 81 57 00 | 23 88 c7 0c 81 58 00 81 |...V..W.|#....X..|
|00002b50| 59 00 23 88 c7 0c 81 5a | 00 81 5b 00 81 43 00 81 |Y.#....Z|..[..C..|
|00002b60| 5b 00 21 42 23 88 c7 0c | 81 5c 5c 00 81 5d 00 23 |[.!B#...|.\\..].#|
|00002b70| 88 c0 f4 81 46 00 81 5e | 00 23 88 c7 0c 81 5f 00 |....F..^|.#...._.|
|00002b80| 81 60 00 23 88 c0 f2 81 | 46 00 81 61 00 23 88 c7 |.`.#....|F..a.#..|
|00002b90| 0c 81 62 00 81 63 00 23 | 88 c0 f0 81 46 00 81 64 |..b..c.#|....F..d|
|00002ba0| 00 23 88 c7 0c 81 65 00 | 81 66 00 23 88 c0 e3 81 |.#....e.|.f.#....|
|00002bb0| 46 00 81 67 00 23 88 c7 | 0c 81 68 00 81 69 00 23 |F..g.#..|..h..i.#|
|00002bc0| 88 81 6a 00 1e 6b 81 6c | 00 1e 6d 0e 6e 81 6f 00 |..j..k.l|..m.n.o.|
|00002bd0| 3e ab 85 0e 6b 43 aa 85 | 0e 6b 0e 6d 44 1e 70 0e |>...kC..|.k.mD.p.|
|00002be0| 6b 0e 71 9d ac 8a 81 72 | 00 0e 70 0e 71 5c 22 16 |k.q....r|..p.q\".|
|00002bf0| 71 2b c0 87 22 20 5b 70 | 75 74 20 61 72 63 68 69 |q+.." [p|ut archi|
|00002c00| 76 65 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 63 6c 61 |ve-mode |mode-cla|
|00002c10| 73 73 20 73 70 65 63 69 | 61 6c 20 61 72 63 68 69 |ss speci|al archi|
|00002c20| 76 65 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 61 6b 65 |ve-mode-|map make|
|00002c30| 2d 6b 65 79 6d 61 70 20 | 73 75 70 70 72 65 73 73 |-keymap |suppress|
|00002c40| 2d 6b 65 79 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |-keymap |define-k|
|00002c50| 65 79 20 22 20 22 20 61 | 72 63 68 69 76 65 2d 6e |ey " " a|rchive-n|
|00002c60| 65 78 74 2d 6c 69 6e 65 | 20 22 61 22 20 61 72 63 |ext-line| "a" arc|
|00002c70| 68 69 76 65 2d 61 6c 74 | 65 72 6e 61 74 65 2d 64 |hive-alt|ernate-d|
|00002c80| 69 73 70 6c 61 79 20 22 | 64 22 20 61 72 63 68 69 |isplay "|d" archi|
|00002c90| 76 65 2d 66 6c 61 67 2d | 64 65 6c 65 74 65 64 20 |ve-flag-|deleted |
|00002ca0| 22 04 22 20 22 65 22 20 | 61 72 63 68 69 76 65 2d |"." "e" |archive-|
|00002cb0| 65 78 74 72 61 63 74 20 | 22 66 22 20 22 0d 22 20 |extract |"f" "." |
|00002cc0| 22 67 22 20 72 65 76 65 | 72 74 2d 62 75 66 66 65 |"g" reve|rt-buffe|
|00002cd0| 72 20 22 68 22 20 64 65 | 73 63 72 69 62 65 2d 6d |r "h" de|scribe-m|
|00002ce0| 6f 64 65 20 22 6d 22 20 | 61 72 63 68 69 76 65 2d |ode "m" |archive-|
|00002cf0| 6d 61 72 6b 20 22 6e 22 | 20 22 0e 22 20 5b 64 6f |mark "n"| "." [do|
|00002d00| 77 6e 5d 20 22 6f 22 20 | 61 72 63 68 69 76 65 2d |wn] "o" |archive-|
|00002d10| 65 78 74 72 61 63 74 2d | 6f 74 68 65 72 2d 77 69 |extract-|other-wi|
|00002d20| 6e 64 6f 77 20 22 70 22 | 20 61 72 63 68 69 76 65 |ndow "p"| archive|
|00002d30| 2d 70 72 65 76 69 6f 75 | 73 2d 6c 69 6e 65 20 22 |-previou|s-line "|
|00002d40| 10 22 20 5b 75 70 5d 20 | 22 72 22 20 61 72 63 68 |." [up] |"r" arch|
|00002d50| 69 76 65 2d 72 65 6e 61 | 6d 65 2d 65 6e 74 72 79 |ive-rena|me-entry|
|00002d60| 20 22 75 22 20 61 72 63 | 68 69 76 65 2d 75 6e 66 | "u" arc|hive-unf|
|00002d70| 6c 61 67 20 22 ff 22 20 | 61 72 63 68 69 76 65 2d |lag "." |archive-|
|00002d80| 75 6e 6d 61 72 6b 2d 61 | 6c 6c 2d 66 69 6c 65 73 |unmark-a|ll-files|
|00002d90| 20 22 76 22 20 61 72 63 | 68 69 76 65 2d 76 69 65 | "v" arc|hive-vie|
|00002da0| 77 20 22 78 22 20 61 72 | 63 68 69 76 65 2d 65 78 |w "x" ar|chive-ex|
|00002db0| 70 75 6e 67 65 20 22 7f | 22 20 61 72 63 68 69 76 |punge ".|" archiv|
|00002dc0| 65 2d 75 6e 66 6c 61 67 | 2d 62 61 63 6b 77 61 72 |e-unflag|-backwar|
|00002dd0| 64 73 20 22 45 22 20 22 | 4d 22 20 61 72 63 68 69 |ds "E" "|M" archi|
|00002de0| 76 65 2d 63 68 6d 6f 64 | 2d 65 6e 74 72 79 20 22 |ve-chmod|-entry "|
|00002df0| 47 22 20 61 72 63 68 69 | 76 65 2d 63 68 67 72 70 |G" archi|ve-chgrp|
|00002e00| 2d 65 6e 74 72 79 20 22 | 4f 22 20 61 72 63 68 69 |-entry "|O" archi|
|00002e10| 76 65 2d 63 68 6f 77 6e | 2d 65 6e 74 72 79 20 61 |ve-chown|-entry a|
|00002e20| 72 63 68 69 76 65 2d 6c | 65 6d 61 63 73 20 22 18 |rchive-l|emacs ".|
|00002e30| 75 22 20 61 72 63 68 69 | 76 65 2d 75 6e 64 6f 20 |u" archi|ve-undo |
|00002e40| 22 1f 22 20 73 75 62 73 | 74 69 74 75 74 65 2d 6b |"." subs|titute-k|
|00002e50| 65 79 2d 64 65 66 69 6e | 69 74 69 6f 6e 20 75 6e |ey-defin|ition un|
|00002e60| 64 6f 20 67 6c 6f 62 61 | 6c 2d 6d 61 70 20 62 75 |do globa|l-map bu|
|00002e70| 74 74 6f 6e 32 20 5b 6d | 6f 75 73 65 2d 32 5d 20 |tton2 [m|ouse-2] |
|00002e80| 61 72 63 68 69 76 65 2d | 6d 6f 75 73 65 2d 65 78 |archive-|mouse-ex|
|00002e90| 74 72 61 63 74 20 5b 6d | 65 6e 75 2d 62 61 72 20 |tract [m|enu-bar |
|00002ea0| 65 64 69 74 5d 20 75 6e | 64 65 66 69 6e 65 64 20 |edit] un|defined |
|00002eb0| 5b 6d 65 6e 75 2d 62 61 | 72 20 69 6d 6d 65 64 69 |[menu-ba|r immedi|
|00002ec0| 61 74 65 5d 20 22 49 6d | 6d 65 64 69 61 74 65 22 |ate] "Im|mediate"|
|00002ed0| 20 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 | make-sp|arse-key|
|00002ee0| 6d 61 70 20 5b 6d 65 6e | 75 2d 62 61 72 20 69 6d |map [men|u-bar im|
|00002ef0| 6d 65 64 69 61 74 65 20 | 61 6c 74 65 72 6e 61 74 |mediate |alternat|
|00002f00| 65 5d 20 28 22 41 6c 74 | 65 72 6e 61 74 65 20 44 |e] ("Alt|ernate D|
|00002f10| 69 73 70 6c 61 79 22 20 | 2e 20 61 72 63 68 69 76 |isplay" |. archiv|
|00002f20| 65 2d 61 6c 74 65 72 6e | 61 74 65 2d 64 69 73 70 |e-altern|ate-disp|
|00002f30| 6c 61 79 29 20 6d 65 6e | 75 2d 65 6e 61 62 6c 65 |lay) men|u-enable|
|00002f40| 20 28 62 6f 75 6e 64 70 | 20 28 61 72 63 68 69 76 | (boundp| (archiv|
|00002f50| 65 2d 6e 61 6d 65 20 22 | 61 6c 74 65 72 6e 61 74 |e-name "|alternat|
|00002f60| 65 2d 64 69 73 70 6c 61 | 79 22 29 29 20 5b 6d 65 |e-displa|y")) [me|
|00002f70| 6e 75 2d 62 61 72 20 69 | 6d 6d 65 64 69 61 74 65 |nu-bar i|mmediate|
|00002f80| 20 76 69 65 77 5d 20 28 | 22 56 69 65 77 20 54 68 | view] (|"View Th|
|00002f90| 69 73 20 46 69 6c 65 22 | 20 2e 20 61 72 63 68 69 |is File"| . archi|
|00002fa0| 76 65 2d 76 69 65 77 29 | 20 5b 6d 65 6e 75 2d 62 |ve-view)| [menu-b|
|00002fb0| 61 72 20 69 6d 6d 65 64 | 69 61 74 65 20 64 69 73 |ar immed|iate dis|
|00002fc0| 70 6c 61 79 5d 20 28 22 | 44 69 73 70 6c 61 79 20 |play] ("|Display |
|00002fd0| 69 6e 20 4f 74 68 65 72 | 20 57 69 6e 64 6f 77 22 |in Other| Window"|
|00002fe0| 20 2e 20 61 72 63 68 69 | 76 65 2d 64 69 73 70 6c | . archi|ve-displ|
|00002ff0| 61 79 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 29 |ay-other|-window)|
|00003000| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 69 6d 6d 65 64 | [menu-b|ar immed|
|00003010| 69 61 74 65 20 66 69 6e | 64 2d 66 69 6c 65 2d 6f |iate fin|d-file-o|
|00003020| 74 68 65 72 2d 77 69 6e | 64 6f 77 5d 20 28 22 46 |ther-win|dow] ("F|
|00003030| 69 6e 64 20 69 6e 20 4f | 74 68 65 72 20 57 69 6e |ind in O|ther Win|
|00003040| 64 6f 77 22 20 2e 20 61 | 72 63 68 69 76 65 2d 65 |dow" . a|rchive-e|
|00003050| 78 74 72 61 63 74 2d 6f | 74 68 65 72 2d 77 69 6e |xtract-o|ther-win|
|00003060| 64 6f 77 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 69 |dow) [me|nu-bar i|
|00003070| 6d 6d 65 64 69 61 74 65 | 20 66 69 6e 64 2d 66 69 |mmediate| find-fi|
|00003080| 6c 65 5d 20 28 22 46 69 | 6e 64 20 54 68 69 73 20 |le] ("Fi|nd This |
|00003090| 46 69 6c 65 22 20 2e 20 | 61 72 63 68 69 76 65 2d |File" . |archive-|
|000030a0| 65 78 74 72 61 63 74 29 | 20 5b 6d 65 6e 75 2d 62 |extract)| [menu-b|
|000030b0| 61 72 20 6d 61 72 6b 5d | 20 22 4d 61 72 6b 22 20 |ar mark]| "Mark" |
|000030c0| 5b 6d 65 6e 75 2d 62 61 | 72 20 6d 61 72 6b 20 75 |[menu-ba|r mark u|
|000030d0| 6e 6d 61 72 6b 2d 61 6c | 6c 5d 20 28 22 55 6e 6d |nmark-al|l] ("Unm|
|000030e0| 61 72 6b 20 41 6c 6c 22 | 20 2e 20 61 72 63 68 69 |ark All"| . archi|
|000030f0| 76 65 2d 75 6e 6d 61 72 | 6b 2d 61 6c 6c 2d 66 69 |ve-unmar|k-all-fi|
|00003100| 6c 65 73 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 6d |les) [me|nu-bar m|
|00003110| 61 72 6b 20 64 65 6c 65 | 74 69 6f 6e 5d 20 28 22 |ark dele|tion] ("|
|00003120| 46 6c 61 67 22 20 2e 20 | 61 72 63 68 69 76 65 2d |Flag" . |archive-|
|00003130| 66 6c 61 67 2d 64 65 6c | 65 74 65 64 29 20 5b 6d |flag-del|eted) [m|
|00003140| 65 6e 75 2d 62 61 72 20 | 6d 61 72 6b 20 75 6e 6d |enu-bar |mark unm|
|00003150| 61 72 6b 5d 20 28 22 55 | 6e 66 6c 61 67 22 20 2e |ark] ("U|nflag" .|
|00003160| 20 61 72 63 68 69 76 65 | 2d 75 6e 66 6c 61 67 29 | archive|-unflag)|
|00003170| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 6d 61 72 6b 20 | [menu-b|ar mark |
|00003180| 6d 61 72 6b 5d 20 28 22 | 4d 61 72 6b 22 20 2e 20 |mark] ("|Mark" . |
|00003190| 61 72 63 68 69 76 65 2d | 6d 61 72 6b 29 20 5b 6d |archive-|mark) [m|
|000031a0| 65 6e 75 2d 62 61 72 20 | 6f 70 65 72 61 74 65 5d |enu-bar |operate]|
|000031b0| 20 22 4f 70 65 72 61 74 | 65 22 20 5b 6d 65 6e 75 | "Operat|e" [menu|
|000031c0| 2d 62 61 72 20 6f 70 65 | 72 61 74 65 20 63 68 6f |-bar ope|rate cho|
|000031d0| 77 6e 5d 20 28 22 43 68 | 61 6e 67 65 20 4f 77 6e |wn] ("Ch|ange Own|
|000031e0| 65 72 2e 2e 2e 22 20 2e | 20 61 72 63 68 69 76 65 |er..." .| archive|
|000031f0| 2d 63 68 6f 77 6e 2d 65 | 6e 74 72 79 29 20 28 66 |-chown-e|ntry) (f|
|00003200| 62 6f 75 6e 64 70 20 28 | 61 72 63 68 69 76 65 2d |boundp (|archive-|
|00003210| 6e 61 6d 65 20 22 63 68 | 6f 77 6e 2d 65 6e 74 72 |name "ch|own-entr|
|00003220| 79 22 29 29 20 5b 6d 65 | 6e 75 2d 62 61 72 20 6f |y")) [me|nu-bar o|
|00003230| 70 65 72 61 74 65 20 63 | 68 67 72 70 5d 20 28 22 |perate c|hgrp] ("|
|00003240| 43 68 61 6e 67 65 20 47 | 72 6f 75 70 2e 2e 2e 22 |Change G|roup..."|
|00003250| 20 2e 20 61 72 63 68 69 | 76 65 2d 63 68 67 72 70 | . archi|ve-chgrp|
|00003260| 2d 65 6e 74 72 79 29 20 | 28 66 62 6f 75 6e 64 70 |-entry) |(fboundp|
|00003270| 20 28 61 72 63 68 69 76 | 65 2d 6e 61 6d 65 20 22 | (archiv|e-name "|
|00003280| 63 68 67 72 70 2d 65 6e | 74 72 79 22 29 29 20 5b |chgrp-en|try")) [|
|00003290| 6d 65 6e 75 2d 62 61 72 | 20 6f 70 65 72 61 74 65 |menu-bar| operate|
|000032a0| 20 63 68 6d 6f 64 5d 20 | 28 22 43 68 61 6e 67 65 | chmod] |("Change|
|000032b0| 20 4d 6f 64 65 2e 2e 2e | 22 20 2e 20 61 72 63 68 | Mode...|" . arch|
|000032c0| 69 76 65 2d 63 68 6d 6f | 64 2d 65 6e 74 72 79 29 |ive-chmo|d-entry)|
|000032d0| 20 28 66 62 6f 75 6e 64 | 70 20 28 61 72 63 68 69 | (fbound|p (archi|
|000032e0| 76 65 2d 6e 61 6d 65 20 | 22 63 68 6d 6f 64 2d 65 |ve-name |"chmod-e|
|000032f0| 6e 74 72 79 22 29 29 20 | 5b 6d 65 6e 75 2d 62 61 |ntry")) |[menu-ba|
|00003300| 72 20 6f 70 65 72 61 74 | 65 20 72 65 6e 61 6d 65 |r operat|e rename|
|00003310| 5d 20 28 22 52 65 6e 61 | 6d 65 20 74 6f 2e 2e 2e |] ("Rena|me to...|
|00003320| 22 20 2e 20 61 72 63 68 | 69 76 65 2d 72 65 6e 61 |" . arch|ive-rena|
|00003330| 6d 65 2d 65 6e 74 72 79 | 29 20 28 66 62 6f 75 6e |me-entry|) (fboun|
|00003340| 64 70 20 28 61 72 63 68 | 69 76 65 2d 6e 61 6d 65 |dp (arch|ive-name|
|00003350| 20 22 72 65 6e 61 6d 65 | 2d 65 6e 74 72 79 22 29 | "rename|-entry")|
|00003360| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 6f 70 65 72 |) [menu-|bar oper|
|00003370| 61 74 65 20 65 78 70 75 | 6e 67 65 5d 20 28 22 45 |ate expu|nge] ("E|
|00003380| 78 70 75 6e 67 65 20 4d | 61 72 6b 65 64 20 46 69 |xpunge M|arked Fi|
|00003390| 6c 65 73 22 20 2e 20 61 | 72 63 68 69 76 65 2d 65 |les" . a|rchive-e|
|000033a0| 78 70 75 6e 67 65 29 20 | 28 61 72 63 68 69 76 65 |xpunge) |(archive|
|000033b0| 2d 73 75 62 66 69 6c 65 | 2d 6d 6f 64 65 20 22 20 |-subfile|-mode " |
|000033c0| 41 72 63 68 69 76 65 22 | 29 20 69 74 65 6d 31 20 |Archive"|) item1 |
|000033d0| 28 61 72 63 68 69 76 65 | 2d 73 75 62 66 69 6c 65 |(archive|-subfile|
|000033e0| 2d 64 6f 73 20 22 20 44 | 6f 73 22 29 20 69 74 65 |-dos " D|os") ite|
|000033f0| 6d 32 20 73 79 73 74 65 | 6d 2d 74 79 70 65 20 28 |m2 syste|m-type (|
|00003400| 6d 73 2d 64 6f 73 20 77 | 69 6e 64 6f 77 73 2d 6e |ms-dos w|indows-n|
|00003410| 74 29 20 69 74 65 6d 73 | 20 6d 69 6e 6f 72 2d 6d |t) items| minor-m|
|00003420| 6f 64 65 2d 61 6c 69 73 | 74 20 61 70 70 65 6e 64 |ode-alis|t append|
|00003430| 5d 20 36 29 0a 28 66 73 | 65 74 20 27 61 72 63 68 |] 6).(fs|et 'arch|
|00003440| 69 76 65 2d 66 69 6e 64 | 2d 74 79 70 65 20 23 5b |ive-find|-type #[|
|00003450| 6e 69 6c 20 22 7e 88 65 | 62 88 c0 19 c2 c3 21 ab |nil "~.e|b.....!.|
|00003460| 83 c4 aa a6 c2 c5 21 ab | 83 c6 aa 9e c2 c7 21 ab |......!.|......!.|
|00003470| 83 c8 aa 96 c2 c9 21 ab | 8e ca cb 0e 0c ae 82 cd |......!.|........|
|00003480| 20 5c 22 ab 83 ce aa 83 | cf d0 21 29 87 22 20 5b | \".....|..!)." [|
|00003490| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|000034a0| 61 72 63 68 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |arch loo|king-at |
|000034b0| 22 5b 50 5d 4b 03 04 22 | 20 7a 69 70 20 22 2e 2e |"[P]K.."| zip "..|
|000034c0| 2d 6c 5b 68 7a 5d 5b 30 | 2d 39 5d 2d 22 20 6c 7a |-l[hz][0|-9]-" lz|
|000034d0| 68 20 22 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |h ".....|........|
|000034e0| 2e 2e 2e 2e 2e 2e 2e 5b | dc 5d a7 c4 fd 22 20 7a |.......[|.]..." z|
|000034f0| 6f 6f 20 22 1a 22 20 73 | 74 72 69 6e 67 2d 6d 61 |oo "." s|tring-ma|
|00003500| 74 63 68 20 22 5c 5c 2e | 5b 61 41 5d 5b 72 52 5d |tch "\\.|[aA][rR]|
|00003510| 5b 63 43 5d 24 22 20 62 | 75 66 66 65 72 2d 66 69 |[cC]$" b|uffer-fi|
|00003520| 6c 65 2d 6e 61 6d 65 20 | 62 75 66 66 65 72 2d 6e |le-name |buffer-n|
|00003530| 61 6d 65 20 61 72 63 20 | 65 72 72 6f 72 20 22 42 |ame arc |error "B|
|00003540| 75 66 66 65 72 20 66 6f | 72 6d 61 74 20 6e 6f 74 |uffer fo|rmat not|
|00003550| 20 72 65 63 6f 67 6e 69 | 7a 65 64 2e 22 5d 20 33 | recogni|zed."] 3|
|00003560| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 63 68 69 76 |]).(fset| 'archiv|
|00003570| 65 2d 73 75 6d 6d 61 72 | 69 7a 65 20 23 5b 6e 69 |e-summar|ize #[ni|
|00003580| 6c 20 22 7e 88 c0 19 c2 | c3 21 88 c4 70 21 88 c5 |l "~....|.!..p!..|
|00003590| 1e 06 c7 c8 c9 0e 5c 6e | 21 cb 0e 06 52 21 29 20 |......\n|!...R!) |
|000035a0| 16 0c c2 cd 21 88 ce 20 | 16 0f 65 60 7d 88 d0 c0 |....!.. |..e`}...|
|000035b0| 21 88 d1 20 88 29 0e 12 | 62 88 d3 d4 21 87 22 20 |!.. .)..|b...!." |
|000035c0| 5b 6e 69 6c 20 62 75 66 | 66 65 72 2d 72 65 61 64 |[nil buf|fer-read|
|000035d0| 2d 6f 6e 6c 79 20 6d 65 | 73 73 61 67 65 20 22 50 |-only me|ssage "P|
|000035e0| 61 72 73 69 6e 67 20 61 | 72 63 68 69 76 65 20 66 |arsing a|rchive f|
|000035f0| 69 6c 65 2e 2e 2e 22 20 | 62 75 66 66 65 72 2d 64 |ile..." |buffer-d|
|00003600| 69 73 61 62 6c 65 2d 75 | 6e 64 6f 20 22 73 75 6d |isable-u|ndo "sum|
|00003610| 6d 61 72 69 7a 65 22 20 | 73 75 66 66 69 78 20 69 |marize" |suffix i|
|00003620| 6e 74 65 72 6e 20 22 61 | 72 63 68 69 76 65 2d 22 |ntern "a|rchive-"|
|00003630| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 61 72 63 | symbol-|name arc|
|00003640| 68 69 76 65 2d 73 75 62 | 74 79 70 65 20 22 2d 22 |hive-sub|type "-"|
|00003650| 20 61 72 63 68 69 76 65 | 2d 66 69 6c 65 73 20 22 | archive|-files "|
|00003660| 50 61 72 73 69 6e 67 20 | 61 72 63 68 69 76 65 20 |Parsing |archive |
|00003670| 66 69 6c 65 2e 2e 2e 64 | 6f 6e 65 2e 22 20 70 6f |file...d|one." po|
|00003680| 69 6e 74 2d 6d 61 72 6b | 65 72 20 61 72 63 68 69 |int-mark|er archi|
|00003690| 76 65 2d 70 72 6f 70 65 | 72 2d 66 69 6c 65 2d 73 |ve-prope|r-file-s|
|000036a0| 74 61 72 74 20 73 65 74 | 2d 62 75 66 66 65 72 2d |tart set|-buffer-|
|000036b0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 62 75 66 66 65 |modified|-p buffe|
|000036c0| 72 2d 65 6e 61 62 6c 65 | 2d 75 6e 64 6f 20 61 72 |r-enable|-undo ar|
|000036d0| 63 68 69 76 65 2d 66 69 | 6c 65 2d 6c 69 73 74 2d |chive-fi|le-list-|
|000036e0| 73 74 61 72 74 20 61 72 | 63 68 69 76 65 2d 6e 65 |start ar|chive-ne|
|000036f0| 78 74 2d 6c 69 6e 65 20 | 30 5d 20 35 20 22 5c 0a |xt-line |0] 5 "\.|
|00003700| 50 61 72 73 65 20 74 68 | 65 20 63 6f 6e 74 65 6e |Parse th|e conten|
|00003710| 74 73 20 6f 66 20 74 68 | 65 20 61 72 63 68 69 76 |ts of th|e archiv|
|00003720| 65 20 66 69 6c 65 20 69 | 6e 20 74 68 65 20 63 75 |e file i|n the cu|
|00003730| 72 72 65 6e 74 20 62 75 | 66 66 65 72 2e 0a 50 6c |rrent bu|ffer..Pl|
|00003740| 61 63 65 20 61 20 64 69 | 72 65 64 2d 6c 69 6b 65 |ace a di|red-like|
|00003750| 20 6c 69 73 74 69 6e 67 | 20 6f 6e 20 74 68 65 20 | listing| on the |
|00003760| 66 72 6f 6e 74 3b 0a 74 | 68 65 6e 20 6e 61 72 72 |front;.t|hen narr|
|00003770| 6f 77 20 74 6f 20 69 74 | 2c 20 73 6f 20 74 68 61 |ow to it|, so tha|
|00003780| 74 20 6f 6e 6c 79 20 74 | 68 61 74 20 6c 69 73 74 |t only t|hat list|
|00003790| 69 6e 67 0a 69 73 20 76 | 69 73 69 62 6c 65 20 28 |ing.is v|isible (|
|000037a0| 61 6e 64 20 74 68 65 20 | 72 65 61 6c 20 64 61 74 |and the |real dat|
|000037b0| 61 20 6f 66 20 74 68 65 | 20 62 75 66 66 65 72 20 |a of the| buffer |
|000037c0| 69 73 20 68 69 64 64 65 | 6e 29 2e 22 5d 29 0a 28 |is hidde|n)."]).(|
|000037d0| 66 73 65 74 20 27 61 72 | 63 68 69 76 65 2d 72 65 |fset 'ar|chive-re|
|000037e0| 73 75 6d 6d 61 72 69 7a | 65 20 23 5b 6e 69 6c 20 |summariz|e #[nil |
|000037f0| 22 c0 20 c1 20 c2 1b 1c | 1d 7e 88 65 0e 06 7c 88 |". . ...|.~.e..|.|
|00003800| c7 20 88 c8 0d 21 88 0e | 09 62 88 ca 0c 21 2b 87 |. ...!..|.b...!+.|
|00003810| 22 20 5b 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |" [buffe|r-modifi|
|00003820| 65 64 2d 70 20 61 72 63 | 68 69 76 65 2d 67 65 74 |ed-p arc|hive-get|
|00003830| 2d 6c 69 6e 65 6e 6f 20 | 6e 69 6c 20 62 75 66 66 |-lineno |nil buff|
|00003840| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 6e 6f 20 |er-read-|only no |
|00003850| 6d 6f 64 69 66 69 65 64 | 20 61 72 63 68 69 76 65 |modified| archive|
|00003860| 2d 70 72 6f 70 65 72 2d | 66 69 6c 65 2d 73 74 61 |-proper-|file-sta|
|00003870| 72 74 20 61 72 63 68 69 | 76 65 2d 73 75 6d 6d 61 |rt archi|ve-summa|
|00003880| 72 69 7a 65 20 73 65 74 | 2d 62 75 66 66 65 72 2d |rize set|-buffer-|
|00003890| 6d 6f 64 69 66 69 65 64 | 2d 70 20 61 72 63 68 69 |modified|-p archi|
|000038a0| 76 65 2d 66 69 6c 65 2d | 6c 69 73 74 2d 73 74 61 |ve-file-|list-sta|
|000038b0| 72 74 20 61 72 63 68 69 | 76 65 2d 6e 65 78 74 2d |rt archi|ve-next-|
|000038c0| 6c 69 6e 65 5d 20 33 20 | 22 5c 0a 52 65 63 72 65 |line] 3 |"\.Recre|
|000038d0| 61 74 65 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 73 |ate the |contents|
|000038e0| 20 6c 69 73 74 69 6e 67 | 20 6f 66 20 61 6e 20 61 | listing| of an a|
|000038f0| 72 63 68 69 76 65 2e 22 | 5d 29 0a 28 66 73 65 74 |rchive."|]).(fset|
|00003900| 20 27 61 72 63 68 69 76 | 65 2d 73 75 6d 6d 61 72 | 'archiv|e-summar|
|00003910| 69 7a 65 2d 66 69 6c 65 | 73 20 23 5b 28 66 69 6c |ize-file|s #[(fil|
|00003920| 65 73 29 20 22 c0 20 11 | 5c 6e ab 86 5c 6e 40 c3 |es) ". .|\n..\n@.|
|00003930| 48 aa 81 c4 15 c6 c7 c8 | c9 5c 6e 5c 22 5c 22 63 |H.......|.\n\"\"c|
|00003940| 88 c0 20 89 16 5c 6e 87 | 22 20 5b 70 6f 69 6e 74 |.. ..\n.|" [point|
|00003950| 2d 6d 61 72 6b 65 72 20 | 61 72 63 68 69 76 65 2d |-marker |archive-|
|00003960| 66 69 6c 65 2d 6c 69 73 | 74 2d 73 74 61 72 74 20 |file-lis|t-start |
|00003970| 66 69 6c 65 73 20 31 20 | 30 20 61 72 63 68 69 76 |files 1 |0 archiv|
|00003980| 65 2d 66 69 6c 65 2d 6e | 61 6d 65 2d 69 6e 64 65 |e-file-n|ame-inde|
|00003990| 6e 74 20 61 70 70 6c 79 | 20 63 6f 6e 63 61 74 20 |nt apply| concat |
|000039a0| 6d 61 70 63 61 72 20 23 | 5b 28 66 69 6c 29 20 22 |mapcar #|[(fil) "|
|000039b0| 08 c1 48 c2 50 1b 0c ac | 8c c5 08 c6 48 08 c7 48 |..H.P...|....H..H|
|000039c0| c8 c9 0b 25 88 0b 29 87 | 22 20 5b 66 69 6c 20 30 |...%..).|" [fil 0|
|000039d0| 20 22 5c 6e 22 20 74 65 | 78 74 20 61 72 63 68 69 | "\n" te|xt archi|
|000039e0| 76 65 2d 6c 65 6d 61 63 | 73 20 70 75 74 2d 74 65 |ve-lemac|s put-te|
|000039f0| 78 74 2d 70 72 6f 70 65 | 72 74 79 20 31 20 32 20 |xt-prope|rty 1 2 |
|00003a00| 6d 6f 75 73 65 2d 66 61 | 63 65 20 68 69 67 68 6c |mouse-fa|ce highl|
|00003a10| 69 67 68 74 5d 20 36 5d | 20 61 72 63 68 69 76 65 |ight] 6]| archive|
|00003a20| 2d 66 69 6c 65 2d 6c 69 | 73 74 2d 65 6e 64 5d 20 |-file-li|st-end] |
|00003a30| 35 20 22 5c 0a 49 6e 73 | 65 72 74 20 61 20 64 65 |5 "\.Ins|ert a de|
|00003a40| 73 63 69 70 74 69 6f 6e | 20 6f 66 20 61 20 6c 69 |sciption| of a li|
|00003a50| 73 74 20 6f 66 20 66 69 | 6c 65 73 20 61 6e 6e 6f |st of fi|les anno|
|00003a60| 74 61 74 65 64 20 77 69 | 74 68 20 70 72 6f 70 65 |tated wi|th prope|
|00003a70| 72 20 6d 6f 75 73 65 20 | 66 61 63 65 22 5d 29 0a |r mouse |face"]).|
|00003a80| 28 66 73 65 74 20 27 61 | 72 63 68 69 76 65 2d 61 |(fset 'a|rchive-a|
|00003a90| 6c 74 65 72 6e 61 74 65 | 2d 64 69 73 70 6c 61 79 |lternate|-display|
|00003aa0| 20 23 5b 6e 69 6c 20 22 | 08 3f 10 c1 20 87 22 20 | #[nil "|.?.. ." |
|00003ab0| 5b 61 72 63 68 69 76 65 | 2d 61 6c 74 65 72 6e 61 |[archive|-alterna|
|00003ac0| 74 65 2d 64 69 73 70 6c | 61 79 20 61 72 63 68 69 |te-displ|ay archi|
|00003ad0| 76 65 2d 72 65 73 75 6d | 6d 61 72 69 7a 65 5d 20 |ve-resum|marize] |
|00003ae0| 31 20 22 5c 0a 54 6f 67 | 67 6c 65 20 61 6c 74 65 |1 "\.Tog|gle alte|
|00003af0| 72 6e 61 74 69 76 65 20 | 64 69 73 70 6c 61 79 2e |rnative |display.|
|00003b00| 20 20 54 6f 20 61 76 6f | 69 64 20 76 65 72 79 20 | To avo|id very |
|00003b10| 6c 6f 6e 67 20 6c 69 6e | 65 73 20 73 6f 6d 65 20 |long lin|es some |
|00003b20| 61 72 63 68 69 76 65 20 | 6d 6f 64 65 0a 64 6f 6e |archive |mode.don|
|00003b30| 27 74 20 73 68 6f 77 20 | 61 6c 6c 20 69 6e 66 6f |'t show |all info|
|00003b40| 72 6d 61 74 69 6f 6e 2e | 20 20 54 68 69 73 20 66 |rmation.| This f|
|00003b50| 75 6e 63 74 69 6f 6e 20 | 63 68 61 6e 67 65 73 20 |unction |changes |
|00003b60| 74 68 65 20 73 65 74 20 | 6f 66 20 69 6e 66 6f 72 |the set |of infor|
|00003b70| 6d 61 74 69 6f 6e 0a 73 | 68 6f 77 6e 20 66 6f 72 |mation.s|hown for|
|00003b80| 20 65 61 63 68 20 66 69 | 6c 65 73 2e 22 20 6e 69 | each fi|les." ni|
|00003b90| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00003ba0| c0 c1 4d 88 c2 c3 4d 87 | 22 20 5b 61 72 63 68 69 |..M...M.|" [archi|
|00003bb0| 76 65 2d 6d 61 79 62 65 | 2d 63 6f 70 79 20 23 5b |ve-maybe|-copy #[|
|00003bc0| 28 61 72 63 68 69 76 65 | 29 20 22 08 ab a0 64 19 |(archive|) "...d.|
|00003bd0| c2 c3 0c 21 0d 5c 22 16 | 06 c7 0d c8 5c 22 88 8c |...!.\".|....\"..|
|00003be0| 7e 88 c9 09 64 0e 06 ca | cb 25 88 29 0e 06 29 87 |~...d...|.%.)..).|
|00003bf0| cc 20 ab 83 cd 20 88 0c | 87 22 20 5b 61 72 63 68 |. ... ..|." [arch|
|00003c00| 69 76 65 2d 72 65 6d 6f | 74 65 20 73 74 61 72 74 |ive-remo|te start|
|00003c10| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00003c20| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |e file-n|ame-nond|
|00003c30| 69 72 65 63 74 6f 72 79 | 20 61 72 63 68 69 76 65 |irectory| archive|
|00003c40| 20 61 72 63 68 69 76 65 | 2d 74 6d 70 64 69 72 20 | archive|-tmpdir |
|00003c50| 61 72 63 68 69 76 65 2d | 6c 6f 63 61 6c 2d 6e 61 |archive-|local-na|
|00003c60| 6d 65 20 6d 61 6b 65 2d | 64 69 72 65 63 74 6f 72 |me make-|director|
|00003c70| 79 20 74 20 77 72 69 74 | 65 2d 72 65 67 69 6f 6e |y t writ|e-region|
|00003c80| 20 6e 69 6c 20 6e 6f 6d | 65 73 73 61 67 65 20 62 | nil nom|essage b|
|00003c90| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00003ca0| 20 73 61 76 65 2d 62 75 | 66 66 65 72 5d 20 36 5d | save-bu|ffer] 6]|
|00003cb0| 20 61 72 63 68 69 76 65 | 2d 6d 61 79 62 65 2d 75 | archive|-maybe-u|
|00003cc0| 70 64 61 74 65 20 23 5b | 28 75 6e 63 68 61 6e 67 |pdate #[|(unchang|
|00003cd0| 65 64 29 20 22 08 ad ae | 09 c2 20 c3 1c 1d 1e 06 |ed) "...|.. .....|
|00003ce0| 0e 07 ac 8c c8 20 88 c9 | 0e 06 21 88 ca cb 21 88 |..... ..|..!...!.|
|00003cf0| cc 0e 06 21 88 0e 07 ac | 84 cd ce 21 88 cf 0d ae |...!....|...!....|
|00003d00| 83 0e 07 3f 21 2b 87 22 | 20 5b 61 72 63 68 69 76 |...?!+."| [archiv|
|00003d10| 65 2d 72 65 6d 6f 74 65 | 20 61 72 63 68 69 76 65 |e-remote| archive|
|00003d20| 2d 6c 6f 63 61 6c 2d 6e | 61 6d 65 20 62 75 66 66 |-local-n|ame buff|
|00003d30| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6e 69 |er-modif|ied-p ni|
|00003d40| 6c 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |l buffer|-read-on|
|00003d50| 6c 79 20 6d 6f 64 69 66 | 69 65 64 20 6e 61 6d 65 |ly modif|ied name|
|00003d60| 20 75 6e 63 68 61 6e 67 | 65 64 20 65 72 61 73 65 | unchang|ed erase|
|00003d70| 2d 62 75 66 66 65 72 20 | 69 6e 73 65 72 74 2d 66 |-buffer |insert-f|
|00003d80| 69 6c 65 2d 63 6f 6e 74 | 65 6e 74 73 20 61 72 63 |ile-cont|ents arc|
|00003d90| 68 69 76 65 2d 6d 6f 64 | 65 20 74 20 61 72 63 68 |hive-mod|e t arch|
|00003da0| 69 76 65 2d 64 65 6c 65 | 74 65 2d 6c 6f 63 61 6c |ive-dele|te-local|
|00003db0| 20 6d 65 73 73 61 67 65 | 20 22 41 72 63 68 69 76 | message| "Archiv|
|00003dc0| 65 20 66 69 6c 65 20 6d | 75 73 74 20 62 65 20 73 |e file m|ust be s|
|00003dd0| 61 76 65 64 20 66 6f 72 | 20 63 68 61 6e 67 65 73 |aved for| changes|
|00003de0| 20 74 6f 20 74 61 6b 65 | 20 65 66 66 65 63 74 22 | to take| effect"|
|00003df0| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00003e00| 66 69 65 64 2d 70 5d 20 | 33 5d 5d 20 32 29 0a 28 |fied-p] |3]] 2).(|
|00003e10| 66 73 65 74 20 27 61 72 | 63 68 69 76 65 2d 64 65 |fset 'ar|chive-de|
|00003e20| 6c 65 74 65 2d 6c 6f 63 | 61 6c 20 23 5b 28 6e 61 |lete-loc|al #[(na|
|00003e30| 6d 65 29 20 22 c0 c1 c2 | 0b 21 21 1c 1d c6 c7 c8 |me) "...|.!!.....|
|00003e40| 8f 88 0d ad 99 c1 c9 0e | 5c 6e 21 21 16 5c 6e c6 |........|\n!!.\n.|
|00003e50| cb cc 8f 88 0e 5c 6e 0c | 98 ab 6a c6 89 15 ac 68 |.....\n.|..j....h|
|00003e60| c6 2a 87 22 20 5b 74 20 | 64 69 72 65 63 74 6f 72 |.*." [t |director|
|00003e70| 79 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |y-file-n|ame file|
|00003e80| 2d 6e 61 6d 65 2d 61 73 | 2d 64 69 72 65 63 74 6f |-name-as|-directo|
|00003e90| 72 79 20 61 72 63 68 69 | 76 65 2d 74 6d 70 64 69 |ry archi|ve-tmpdi|
|00003ea0| 72 20 74 6f 70 20 61 67 | 61 69 6e 20 6e 69 6c 20 |r top ag|ain nil |
|00003eb0| 28 64 65 6c 65 74 65 2d | 66 69 6c 65 20 6e 61 6d |(delete-|file nam|
|00003ec0| 65 29 20 28 28 65 72 72 | 6f 72 29 29 20 66 69 6c |e) ((err|or)) fil|
|00003ed0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00003ee0| 20 6e 61 6d 65 20 28 64 | 65 6c 65 74 65 2d 64 69 | name (d|elete-di|
|00003ef0| 72 65 63 74 6f 72 79 20 | 6e 61 6d 65 29 20 28 28 |rectory |name) ((|
|00003f00| 65 72 72 6f 72 29 29 5d | 20 35 20 22 5c 0a 44 65 |error))]| 5 "\.De|
|00003f10| 6c 65 74 65 20 28 72 6f | 62 75 73 74 29 20 74 68 |lete (ro|bust) th|
|00003f20| 65 20 66 69 6c 65 20 4e | 41 4d 45 20 61 6e 64 20 |e file N|AME and |
|00003f30| 69 74 73 20 70 61 72 65 | 6e 74 73 20 75 70 20 74 |its pare|nts up t|
|00003f40| 6f 20 61 6e 64 20 69 6e | 63 6c 75 64 69 6e 67 20 |o and in|cluding |
|00003f50| 74 68 65 0a 76 61 6c 75 | 65 20 6f 66 20 60 61 72 |the.valu|e of `ar|
|00003f60| 63 68 69 76 65 2d 74 6d | 70 64 69 72 27 2e 22 5d |chive-tm|pdir'."]|
|00003f70| 29 0a 28 66 73 65 74 20 | 27 61 72 63 68 69 76 65 |).(fset |'archive|
|00003f80| 2d 6d 6f 75 73 65 2d 65 | 78 74 72 61 63 74 20 23 |-mouse-e|xtract #|
|00003f90| 5b 28 65 76 65 6e 74 29 | 20 22 c0 09 21 88 c2 8a |[(event)| "..!...|
|00003fa0| c3 20 88 70 29 21 87 22 | 20 5b 6d 6f 75 73 65 2d |. .p)!."| [mouse-|
|00003fb0| 73 65 74 2d 70 6f 69 6e | 74 20 65 76 65 6e 74 20 |set-poin|t event |
|00003fc0| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00003fd0| 20 61 72 63 68 69 76 65 | 2d 65 78 74 72 61 63 74 | archive|-extract|
|00003fe0| 5d 20 32 20 22 5c 0a 45 | 78 74 72 61 63 74 20 61 |] 2 "\.E|xtract a|
|00003ff0| 20 66 69 6c 65 20 77 68 | 6f 73 65 20 6e 61 6d 65 | file wh|ose name|
|00004000| 20 79 6f 75 20 63 6c 69 | 63 6b 20 6f 6e 2e 22 20 | you cli|ck on." |
|00004010| 22 65 22 5d 29 0a 28 66 | 73 65 74 20 27 61 72 63 |"e"]).(f|set 'arc|
|00004020| 68 69 76 65 2d 65 78 74 | 72 61 63 74 20 23 5b 28 |hive-ext|ract #[(|
|00004030| 26 6f 70 74 69 6f 6e 61 | 6c 20 6f 74 68 65 72 2d |&optiona|l other-|
|00004040| 77 69 6e 64 6f 77 2d 70 | 29 20 22 08 c1 3d 1a c3 |window-p|) "..=..|
|00004050| 20 89 1c c5 48 1e 06 0c | c7 48 1e 08 70 1e 09 0e | ...H...|.H..p...|
|00004060| 5c 6e 1e 0b cc 20 1e 0d | ce 0e 0d 21 1e 0f ce 0e |\n... ..|...!....|
|00004070| 08 21 d0 0e 0f d1 52 1e | 12 d3 1e 14 d5 d6 d7 0e |.!....R.|........|
|00004080| 18 21 d9 0e 14 52 21 29 | 1e 1a 0e 1b ae 81 5c 6e |.!...R!)|......\n|
|00004090| 1e 1c dd 0e 12 21 1e 1e | df 1e 20 0e 1e 84 e4 00 |.....!..|.. .....|
|000040a0| e1 0e 0d 21 16 0d e2 0e | 12 21 16 1e e3 16 20 8a |...!....|.!.... .|
|000040b0| 0e 1e 71 88 e4 0e 0f e5 | 0e 08 51 21 16 0c e6 0e |..q.....|..Q!....|
|000040c0| 0c 21 16 27 0e 0b 16 5c | 6e e8 e9 21 88 0e 09 16 |.!.'...\|n..!....|
|000040d0| 29 e8 ea 21 88 eb ea ec | 5c 22 88 0c 16 2d df 16 |)..!....|\"...-..|
|000040e0| 2e e3 16 2f f0 0e 1a 21 | ab 8a 0e 1a 0e 0d 0e 06 |.../...!|........|
|000040f0| 5c 22 88 aa 8a f1 0e 0d | 0e 06 0e 1a 4a 23 88 0e |\"......|....J#..|
|00004100| 32 ab 83 f3 20 88 65 62 | 88 f4 0e 12 21 88 0e 1c |2... .eb|....!...|
|00004110| 16 35 df 16 36 f7 df 21 | 88 f8 20 16 39 fa 20 88 |.5..6..!|.. .9. .|
|00004120| 0e 3b fc 3d ab 83 e3 16 | 3d fe ff 21 88 29 81 40 |.;.=....|=..!.).@|
|00004130| 00 e3 21 88 5c 6e ab 93 | 81 41 00 0e 1e 21 88 0e |..!.\n..|.A...!..|
|00004140| 20 ad a8 81 42 00 89 16 | 43 aa a0 08 81 44 00 3d | ...B...|C....D.=|
|00004150| ab 88 81 45 00 0e 1e 21 | aa 91 08 ab 88 81 46 00 |...E...!|......F.|
|00004160| 0e 1e 21 aa 86 81 47 00 | 0e 1e 21 2e 0d 87 22 20 |..!...G.|..!..." |
|00004170| 5b 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 2d 70 20 |[other-w|indow-p |
|00004180| 76 69 65 77 20 76 69 65 | 77 2d 70 20 61 72 63 68 |view vie|w-p arch|
|00004190| 69 76 65 2d 67 65 74 2d | 64 65 73 63 72 20 64 65 |ive-get-|descr de|
|000041a0| 73 63 72 20 30 20 65 6e | 61 6d 65 20 31 20 69 6e |scr 0 en|ame 1 in|
|000041b0| 61 6d 65 20 61 72 63 68 | 69 76 65 2d 62 75 66 66 |ame arch|ive-buff|
|000041c0| 65 72 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |er defau|lt-direc|
|000041d0| 74 6f 72 79 20 61 72 63 | 64 69 72 20 62 75 66 66 |tory arc|dir buff|
|000041e0| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 61 72 63 |er-file-|name arc|
|000041f0| 68 69 76 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |hive fil|e-name-n|
|00004200| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 61 72 63 6e |ondirect|ory arcn|
|00004210| 61 6d 65 20 22 20 28 22 | 20 22 29 22 20 62 75 66 |ame " ("| ")" buf|
|00004220| 6e 61 6d 65 20 22 65 78 | 74 72 61 63 74 22 20 73 |name "ex|tract" s|
|00004230| 75 66 66 69 78 20 69 6e | 74 65 72 6e 20 22 61 72 |uffix in|tern "ar|
|00004240| 63 68 69 76 65 2d 22 20 | 73 79 6d 62 6f 6c 2d 6e |chive-" |symbol-n|
|00004250| 61 6d 65 20 61 72 63 68 | 69 76 65 2d 73 75 62 74 |ame arch|ive-subt|
|00004260| 79 70 65 20 22 2d 22 20 | 65 78 74 72 61 63 74 6f |ype "-" |extracto|
|00004270| 72 20 61 72 63 68 69 76 | 65 2d 72 65 61 64 2d 6f |r archiv|e-read-o|
|00004280| 6e 6c 79 20 72 65 61 64 | 2d 6f 6e 6c 79 2d 70 20 |nly read|-only-p |
|00004290| 67 65 74 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |get-buff|er buffe|
|000042a0| 72 20 6e 69 6c 20 6a 75 | 73 74 2d 63 72 65 61 74 |r nil ju|st-creat|
|000042b0| 65 64 20 61 72 63 68 69 | 76 65 2d 6d 61 79 62 65 |ed archi|ve-maybe|
|000042c0| 2d 63 6f 70 79 20 67 65 | 74 2d 62 75 66 66 65 72 |-copy ge|t-buffer|
|000042d0| 2d 63 72 65 61 74 65 20 | 74 20 65 78 70 61 6e 64 |-create |t expand|
|000042e0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 3a 22 20 61 |-file-na|me ":" a|
|000042f0| 62 62 72 65 76 69 61 74 | 65 2d 66 69 6c 65 2d 6e |bbreviat|e-file-n|
|00004300| 61 6d 65 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ame buff|er-file-|
|00004310| 74 72 75 65 6e 61 6d 65 | 20 6d 61 6b 65 2d 6c 6f |truename| make-lo|
|00004320| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 61 72 63 |cal-vari|able arc|
|00004330| 68 69 76 65 2d 73 75 70 | 65 72 69 6f 72 2d 62 75 |hive-sup|erior-bu|
|00004340| 66 66 65 72 20 6c 6f 63 | 61 6c 2d 77 72 69 74 65 |ffer loc|al-write|
|00004350| 2d 66 69 6c 65 2d 68 6f | 6f 6b 73 20 61 64 64 2d |-file-ho|oks add-|
|00004360| 68 6f 6f 6b 20 61 72 63 | 68 69 76 65 2d 77 72 69 |hook arc|hive-wri|
|00004370| 74 65 2d 66 69 6c 65 2d | 6d 65 6d 62 65 72 20 61 |te-file-|member a|
|00004380| 72 63 68 69 76 65 2d 73 | 75 62 66 69 6c 65 2d 6d |rchive-s|ubfile-m|
|00004390| 6f 64 65 20 61 72 63 68 | 69 76 65 2d 73 75 62 66 |ode arch|ive-subf|
|000043a0| 69 6c 65 2d 64 6f 73 20 | 62 75 66 66 65 72 2d 66 |ile-dos |buffer-f|
|000043b0| 69 6c 65 2d 74 79 70 65 | 20 66 62 6f 75 6e 64 70 |ile-type| fboundp|
|000043c0| 20 61 72 63 68 69 76 65 | 2d 2a 2d 65 78 74 72 61 | archive|-*-extra|
|000043d0| 63 74 20 61 72 63 68 69 | 76 65 2d 64 6f 73 2d 6d |ct archi|ve-dos-m|
|000043e0| 65 6d 62 65 72 73 20 61 | 72 63 68 69 76 65 2d 63 |embers a|rchive-c|
|000043f0| 68 65 63 6b 2d 64 6f 73 | 20 72 65 6e 61 6d 65 2d |heck-dos| rename-|
|00004400| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 2d 72 65 |buffer b|uffer-re|
|00004410| 61 64 2d 6f 6e 6c 79 20 | 62 75 66 66 65 72 2d 75 |ad-only |buffer-u|
|00004420| 6e 64 6f 2d 6c 69 73 74 | 20 73 65 74 2d 62 75 66 |ndo-list| set-buf|
|00004430| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|00004440| 75 66 66 65 72 2d 73 69 | 7a 65 20 62 75 66 66 65 |uffer-si|ze buffe|
|00004450| 72 2d 73 61 76 65 64 2d | 73 69 7a 65 20 6e 6f 72 |r-saved-|size nor|
|00004460| 6d 61 6c 2d 6d 6f 64 65 | 20 6d 61 6a 6f 72 2d 6d |mal-mode| major-m|
|00004470| 6f 64 65 20 61 72 63 68 | 69 76 65 2d 6d 6f 64 65 |ode arch|ive-mode|
|00004480| 20 61 72 63 68 69 76 65 | 2d 72 65 6d 6f 74 65 20 | archive|-remote |
|00004490| 72 75 6e 2d 68 6f 6f 6b | 73 20 61 72 63 68 69 76 |run-hook|s archiv|
|000044a0| 65 2d 65 78 74 72 61 63 | 74 2d 68 6f 6f 6b 73 20 |e-extrac|t-hooks |
|000044b0| 61 72 63 68 69 76 65 2d | 6d 61 79 62 65 2d 75 70 |archive-|maybe-up|
|000044c0| 64 61 74 65 20 76 69 65 | 77 2d 62 75 66 66 65 72 |date vie|w-buffer|
|000044d0| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 76 69 65 | kill-bu|ffer vie|
|000044e0| 77 2d 65 78 69 74 2d 61 | 63 74 69 6f 6e 20 64 69 |w-exit-a|ction di|
|000044f0| 73 70 6c 61 79 20 64 69 | 73 70 6c 61 79 2d 62 75 |splay di|splay-bu|
|00004500| 66 66 65 72 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |ffer swi|tch-to-b|
|00004510| 75 66 66 65 72 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |uffer-ot|her-wind|
|00004520| 6f 77 20 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |ow switc|h-to-buf|
|00004530| 66 65 72 5d 20 36 20 22 | 5c 0a 49 6e 20 61 72 63 |fer] 6 "|\.In arc|
|00004540| 68 69 76 65 20 6d 6f 64 | 65 2c 20 65 78 74 72 61 |hive mod|e, extra|
|00004550| 63 74 20 74 68 69 73 20 | 65 6e 74 72 79 20 6f 66 |ct this |entry of|
|00004560| 20 74 68 65 20 61 72 63 | 68 69 76 65 20 69 6e 74 | the arc|hive int|
|00004570| 6f 20 69 74 73 20 6f 77 | 6e 20 62 75 66 66 65 72 |o its ow|n buffer|
|00004580| 2e 22 20 6e 69 6c 5d 29 | 0a 28 62 79 74 65 2d 63 |." nil])|.(byte-c|
|00004590| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 87 22 20 5b |ode "..M|...M." [|
|000045a0| 61 72 63 68 69 76 65 2d | 2a 2d 65 78 74 72 61 63 |archive-|*-extrac|
|000045b0| 74 20 23 5b 28 61 72 63 | 68 69 76 65 20 6e 61 6d |t #[(arc|hive nam|
|000045c0| 65 20 63 6f 6d 6d 61 6e | 64 29 20 22 c0 09 21 1a |e comman|d) "..!.|
|000045d0| c3 c4 0d 21 5c 6e 5c 22 | 1e 06 c7 c8 5c 6e 21 c9 |...!\n\"|....\n!.|
|000045e0| 5c 22 88 ca cb 0e 0c 40 | cd 89 89 ce 0e 0c 41 0e |\".....@|......A.|
|000045f0| 0f 0d 44 5c 22 26 06 88 | d0 0e 06 21 88 d1 0e 06 |..D\"&..|...!....|
|00004600| 21 2a 87 22 20 5b 66 69 | 6c 65 2d 6e 61 6d 65 2d |!*." [fi|le-name-|
|00004610| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 61 72 63 |as-direc|tory arc|
|00004620| 68 69 76 65 2d 74 6d 70 | 64 69 72 20 64 65 66 61 |hive-tmp|dir defa|
|00004630| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 20 65 78 |ult-dire|ctory ex|
|00004640| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|00004650| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00004660| 63 74 6f 72 79 20 6e 61 | 6d 65 20 74 6d 70 66 69 |ctory na|me tmpfi|
|00004670| 6c 65 20 6d 61 6b 65 2d | 64 69 72 65 63 74 6f 72 |le make-|director|
|00004680| 79 20 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |y direct|ory-file|
|00004690| 2d 6e 61 6d 65 20 74 20 | 61 70 70 6c 79 20 63 61 |-name t |apply ca|
|000046a0| 6c 6c 2d 70 72 6f 63 65 | 73 73 20 63 6f 6d 6d 61 |ll-proce|ss comma|
|000046b0| 6e 64 20 6e 69 6c 20 61 | 70 70 65 6e 64 20 61 72 |nd nil a|ppend ar|
|000046c0| 63 68 69 76 65 20 69 6e | 73 65 72 74 2d 66 69 6c |chive in|sert-fil|
|000046d0| 65 2d 63 6f 6e 74 65 6e | 74 73 20 61 72 63 68 69 |e-conten|ts archi|
|000046e0| 76 65 2d 64 65 6c 65 74 | 65 2d 6c 6f 63 61 6c 5d |ve-delet|e-local]|
|000046f0| 20 31 30 5d 20 61 72 63 | 68 69 76 65 2d 65 78 74 | 10] arc|hive-ext|
|00004700| 72 61 63 74 2d 62 79 2d | 73 74 64 6f 75 74 20 23 |ract-by-|stdout #|
|00004710| 5b 28 61 72 63 68 69 76 | 65 20 6e 61 6d 65 20 63 |[(archiv|e name c|
|00004720| 6f 6d 6d 61 6e 64 29 20 | 22 c0 19 c2 c3 0c 40 c5 |ommand) |".....@.|
|00004730| c0 c5 c6 0c 41 0e 07 0e | 08 44 5c 22 26 06 29 87 |....A...|.D\"&.).|
|00004740| 22 20 5b 74 20 62 69 6e | 61 72 79 2d 70 72 6f 63 |" [t bin|ary-proc|
|00004750| 65 73 73 2d 6f 75 74 70 | 75 74 20 61 70 70 6c 79 |ess-outp|ut apply|
|00004760| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 20 63 6f | call-pr|ocess co|
|00004770| 6d 6d 61 6e 64 20 6e 69 | 6c 20 61 70 70 65 6e 64 |mmand ni|l append|
|00004780| 20 61 72 63 68 69 76 65 | 20 6e 61 6d 65 5d 20 31 | archive| name] 1|
|00004790| 30 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 61 72 |0]] 2).(|fset 'ar|
|000047a0| 63 68 69 76 65 2d 65 78 | 74 72 61 63 74 2d 6f 74 |chive-ex|tract-ot|
|000047b0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 23 5b 6e 69 6c |her-wind|ow #[nil|
|000047c0| 20 22 c0 c1 21 87 22 20 | 5b 61 72 63 68 69 76 65 | "..!." |[archive|
|000047d0| 2d 65 78 74 72 61 63 74 | 20 74 5d 20 32 20 22 5c |-extract| t] 2 "\|
|000047e0| 0a 49 6e 20 61 72 63 68 | 69 76 65 20 6d 6f 64 65 |.In arch|ive mode|
|000047f0| 2c 20 66 69 6e 64 20 74 | 68 69 73 20 6d 65 6d 62 |, find t|his memb|
|00004800| 65 72 20 69 6e 20 61 6e | 6f 74 68 65 72 20 77 69 |er in an|other wi|
|00004810| 6e 64 6f 77 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |ndow." n|il]).(fs|
|00004820| 65 74 20 27 61 72 63 68 | 69 76 65 2d 64 69 73 70 |et 'arch|ive-disp|
|00004830| 6c 61 79 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |lay-othe|r-window|
|00004840| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 61 | #[nil "|..!." [a|
|00004850| 72 63 68 69 76 65 2d 65 | 78 74 72 61 63 74 20 64 |rchive-e|xtract d|
|00004860| 69 73 70 6c 61 79 5d 20 | 32 20 22 5c 0a 49 6e 20 |isplay] |2 "\.In |
|00004870| 61 72 63 68 69 76 65 20 | 6d 6f 64 65 2c 20 64 69 |archive |mode, di|
|00004880| 73 70 6c 61 79 20 74 68 | 69 73 20 6d 65 6d 62 65 |splay th|is membe|
|00004890| 72 20 69 6e 20 61 6e 6f | 74 68 65 72 20 77 69 6e |r in ano|ther win|
|000048a0| 64 6f 77 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |dow." ni|l]).(fse|
|000048b0| 74 20 27 61 72 63 68 69 | 76 65 2d 76 69 65 77 20 |t 'archi|ve-view |
|000048c0| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 61 72 |#[nil ".|.!." [ar|
|000048d0| 63 68 69 76 65 2d 65 78 | 74 72 61 63 74 20 76 69 |chive-ex|tract vi|
|000048e0| 65 77 5d 20 32 20 22 5c | 0a 49 6e 20 61 72 63 68 |ew] 2 "\|.In arch|
|000048f0| 69 76 65 20 6d 6f 64 65 | 2c 20 76 69 65 77 20 74 |ive mode|, view t|
|00004900| 68 65 20 6d 65 6d 62 65 | 72 20 6f 6e 20 74 68 69 |he membe|r on thi|
|00004910| 73 20 6c 69 6e 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |s line."| nil]).(|
|00004920| 66 73 65 74 20 27 61 72 | 63 68 69 76 65 2d 61 64 |fset 'ar|chive-ad|
|00004930| 64 2d 6e 65 77 2d 6d 65 | 6d 62 65 72 20 23 5b 28 |d-new-me|mber #[(|
|00004940| 61 72 63 62 75 66 20 6e | 61 6d 65 29 20 22 8a 08 |arcbuf n|ame) "..|
|00004950| 71 88 09 c2 3d ac 84 c3 | c4 21 88 0d ab 84 c3 c6 |q...=...|.!......|
|00004960| 21 88 29 08 70 3d ab 84 | c3 c7 21 88 0e 08 c9 98 |!.).p=..|..!.....|
|00004970| ab 84 c3 ca 21 88 8a 08 | 71 88 cb 1e 0c cd ce cf |....!...|q.......|
|00004980| 0e 10 21 d1 0e 0c 52 21 | 2a 70 1e 12 1e 13 d4 0e |..!...R!|*p......|
|00004990| 13 21 ab 90 8a 08 71 88 | 0e 13 0e 15 0e 12 0e 08 |.!....q.|........|
|000049a0| 23 29 aa 83 c3 d6 21 2a | 87 22 20 5b 61 72 63 62 |#)....!*|." [arcb|
|000049b0| 75 66 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 61 72 |uf major|-mode ar|
|000049c0| 63 68 69 76 65 2d 6d 6f | 64 65 20 65 72 72 6f 72 |chive-mo|de error|
|000049d0| 20 22 42 75 66 66 65 72 | 20 69 73 20 6e 6f 74 20 | "Buffer| is not |
|000049e0| 61 6e 20 61 72 63 68 69 | 76 65 20 62 75 66 66 65 |an archi|ve buffe|
|000049f0| 72 22 20 61 72 63 68 69 | 76 65 2d 72 65 61 64 2d |r" archi|ve-read-|
|00004a00| 6f 6e 6c 79 20 22 41 72 | 63 68 69 76 65 20 69 73 |only "Ar|chive is|
|00004a10| 20 72 65 61 64 2d 6f 6e | 6c 79 22 20 22 41 6e 20 | read-on|ly" "An |
|00004a20| 61 72 63 68 69 76 65 20 | 62 75 66 66 65 72 20 63 |archive |buffer c|
|00004a30| 61 6e 6e 6f 74 20 62 65 | 20 61 64 64 65 64 20 74 |annot be| added t|
|00004a40| 6f 20 69 74 73 65 6c 66 | 22 20 6e 61 6d 65 20 22 |o itself|" name "|
|00004a50| 22 20 22 41 72 63 68 69 | 76 65 20 6d 65 6d 62 65 |" "Archi|ve membe|
|00004a60| 72 73 20 6d 61 79 20 6e | 6f 74 20 62 65 20 67 69 |rs may n|ot be gi|
|00004a70| 76 65 6e 20 65 6d 70 74 | 79 20 6e 61 6d 65 73 22 |ven empt|y names"|
|00004a80| 20 22 61 64 64 2d 6e 65 | 77 2d 6d 65 6d 62 65 72 | "add-ne|w-member|
|00004a90| 22 20 73 75 66 66 69 78 | 20 69 6e 74 65 72 6e 20 |" suffix| intern |
|00004aa0| 22 61 72 63 68 69 76 65 | 2d 22 20 73 79 6d 62 6f |"archive|-" symbo|
|00004ab0| 6c 2d 6e 61 6d 65 20 61 | 72 63 68 69 76 65 2d 73 |l-name a|rchive-s|
|00004ac0| 75 62 74 79 70 65 20 22 | 2d 22 20 6d 65 6d 62 75 |ubtype "|-" membu|
|00004ad0| 66 20 66 75 6e 63 20 66 | 62 6f 75 6e 64 70 20 62 |f func f|boundp b|
|00004ae0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|00004af0| 22 41 64 64 69 6e 67 20 | 61 20 6e 65 77 20 6d 65 |"Adding |a new me|
|00004b00| 6d 62 65 72 20 69 73 20 | 6e 6f 74 20 73 75 70 70 |mber is |not supp|
|00004b10| 6f 72 74 65 64 20 66 6f | 72 20 74 68 69 73 20 61 |orted fo|r this a|
|00004b20| 72 63 68 69 76 65 20 74 | 79 70 65 22 5d 20 35 20 |rchive t|ype"] 5 |
|00004b30| 22 5c 0a 41 64 64 20 74 | 68 65 20 66 69 6c 65 20 |"\.Add t|he file |
|00004b40| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|00004b50| 75 66 66 65 72 20 74 6f | 20 74 68 65 20 61 72 63 |uffer to| the arc|
|00004b60| 68 69 76 65 20 69 6e 20 | 41 52 43 42 55 46 20 6e |hive in |ARCBUF n|
|00004b70| 61 6d 69 6e 67 20 69 74 | 0a 4e 41 4d 45 2e 22 20 |aming it|.NAME." |
|00004b80| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|00004b90| 20 89 1c ab 91 8a 0c 40 | 71 88 0d 29 c6 3d ac 86 | ......@|q..).=..|
|00004ba0| 0c 41 89 14 ac 6f 0c ab | 84 0c 40 aa 83 c7 c8 21 |.A...o..|..@....!|
|00004bb0| 29 c9 23 21 ca cb 0e 0c | ab 86 cd 0e 0c 21 aa 81 |).#!....|.....!..|
|00004bc0| ce 5c 22 44 87 22 20 5b | 67 65 74 2d 62 75 66 66 |.\"D." [|get-buff|
|00004bd0| 65 72 20 72 65 61 64 2d | 62 75 66 66 65 72 20 22 |er read-|buffer "|
|00004be0| 42 75 66 66 65 72 20 63 | 6f 6e 74 61 69 6e 69 6e |Buffer c|ontainin|
|00004bf0| 67 20 61 72 63 68 69 76 | 65 3a 20 22 20 62 75 66 |g archiv|e: " buf|
|00004c00| 66 65 72 2d 6c 69 73 74 | 20 62 75 66 73 20 6d 61 |fer-list| bufs ma|
|00004c10| 6a 6f 72 2d 6d 6f 64 65 | 20 61 72 63 68 69 76 65 |jor-mode| archive|
|00004c20| 2d 6d 6f 64 65 20 65 72 | 72 6f 72 20 22 54 68 65 |-mode er|ror "The|
|00004c30| 72 65 20 61 72 65 20 6e | 6f 20 61 72 63 68 69 76 |re are n|o archiv|
|00004c40| 65 20 62 75 66 66 65 72 | 73 22 20 74 20 72 65 61 |e buffer|s" t rea|
|00004c50| 64 2d 73 74 72 69 6e 67 | 20 22 46 69 6c 65 20 6e |d-string| "File n|
|00004c60| 61 6d 65 20 69 6e 20 61 | 72 63 68 69 76 65 3a 20 |ame in a|rchive: |
|00004c70| 22 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |" buffer|-file-na|
|00004c80| 6d 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |me file-|name-non|
|00004c90| 64 69 72 65 63 74 6f 72 | 79 20 22 22 5d 20 36 29 |director|y ""] 6)|
|00004ca0| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 63 68 69 76 |]).(fset| 'archiv|
|00004cb0| 65 2d 63 68 65 63 6b 2d | 64 6f 73 20 23 5b 28 26 |e-check-|dos #[(&|
|00004cc0| 6f 70 74 69 6f 6e 61 6c | 20 66 6f 72 63 65 29 20 |optional| force) |
|00004cd0| 22 8c 7e 88 8a 65 62 88 | 08 ae 86 c1 c2 c3 c4 23 |".~..eb.|.......#|
|00004ce0| 3f 89 15 3f 16 06 0d ad | a0 c7 20 1e 08 c9 70 21 |?..?....|.. ...p!|
|00004cf0| 88 65 62 88 ca cb c3 c4 | 23 ab 86 cc cd 21 88 aa |.eb.....|#....!..|
|00004d00| 73 ce 20 88 cf 0e 08 21 | 29 2a 87 22 20 5b 66 6f |s. ....!|)*." [fo|
|00004d10| 72 63 65 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |rce sear|ch-forwa|
|00004d20| 72 64 2d 72 65 67 65 78 | 70 20 22 5b 5e 0d 5d 5c |rd-regex|p "[^.]\|
|00004d30| 6e 22 20 6e 69 6c 20 74 | 20 61 72 63 68 69 76 65 |n" nil t| archive|
|00004d40| 2d 73 75 62 66 69 6c 65 | 2d 64 6f 73 20 62 75 66 |-subfile|-dos buf|
|00004d50| 66 65 72 2d 66 69 6c 65 | 2d 74 79 70 65 20 62 75 |fer-file|-type bu|
|00004d60| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00004d70| 6d 6f 64 69 66 69 65 64 | 20 62 75 66 66 65 72 2d |modified| buffer-|
|00004d80| 64 69 73 61 62 6c 65 2d | 75 6e 64 6f 20 73 65 61 |disable-|undo sea|
|00004d90| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 0d 5c 6e |rch-forw|ard ".\n|
|00004da0| 22 20 72 65 70 6c 61 63 | 65 2d 6d 61 74 63 68 20 |" replac|e-match |
|00004db0| 22 5c 6e 22 20 62 75 66 | 66 65 72 2d 65 6e 61 62 |"\n" buf|fer-enab|
|00004dc0| 6c 65 2d 75 6e 64 6f 20 | 73 65 74 2d 62 75 66 66 |le-undo |set-buff|
|00004dd0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 5d 20 35 |er-modif|ied-p] 5|
|00004de0| 20 22 5c 0a 2a 49 66 20 | 74 68 69 73 20 6c 6f 6f | "\.*If |this loo|
|00004df0| 6b 73 20 6c 69 6b 65 20 | 61 20 62 75 66 66 65 72 |ks like |a buffer|
|00004e00| 20 77 69 74 68 20 5e 4d | 5e 4a 20 61 73 20 6c 69 | with ^M|^J as li|
|00004e10| 6e 65 20 74 65 72 6d 69 | 6e 61 74 6f 72 20 74 68 |ne termi|nator th|
|00004e20| 65 6e 20 72 65 6d 6f 76 | 65 0a 74 68 6f 73 65 20 |en remov|e.those |
|00004e30| 5e 4d 73 20 61 6e 64 20 | 73 65 74 20 61 72 63 68 |^Ms and |set arch|
|00004e40| 69 76 65 2d 73 75 62 66 | 69 6c 65 2d 64 6f 73 2e |ive-subf|ile-dos.|
|00004e50| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00004e60| c0 c1 4d 88 c2 c3 4d 88 | c4 c5 4d 87 22 20 5b 61 |..M...M.|..M." [a|
|00004e70| 72 63 68 69 76 65 2d 77 | 72 69 74 65 2d 66 69 6c |rchive-w|rite-fil|
|00004e80| 65 2d 6d 65 6d 62 65 72 | 20 23 5b 6e 69 6c 20 22 |e-member| #[nil "|
|00004e90| 08 ab a5 8c 7e 88 8a 65 | 62 88 09 1a c3 8e c4 11 |....~..e|b.......|
|00004ea0| c5 c6 c7 c4 23 ab 86 c8 | c9 21 88 aa 73 c7 10 c4 |....#...|.!..s...|
|00004eb0| 16 5c 6e cb 20 88 2c c4 | 87 8a 8c cc cd 21 88 7e |.\n. .,.|.....!.~|
|00004ec0| 88 8a 0e 0e 71 88 cf 1e | 10 d1 d2 d3 0e 14 21 d5 |....q...|......!.|
|00004ed0| 0e 10 52 21 2a 8a 0e 0e | 71 88 d6 20 29 1e 17 1e |..R!*...|q.. )...|
|00004ee0| 18 d9 0e 18 21 ab 8a 0e | 18 0e 17 0e 1a 5c 22 88 |....!...|.....\".|
|00004ef0| aa 8a db 0e 17 0e 1a 0e | 18 4a 23 88 2a dc c7 21 |........|.J#.*..!|
|00004f00| 88 cc dd 21 88 0e 0e 71 | 88 de 20 88 2a c4 87 22 |...!...q|.. .*.."|
|00004f10| 20 5b 61 72 63 68 69 76 | 65 2d 73 75 62 66 69 6c | [archiv|e-subfil|
|00004f20| 65 2d 64 6f 73 20 62 75 | 66 66 65 72 2d 75 6e 64 |e-dos bu|ffer-und|
|00004f30| 6f 2d 6c 69 73 74 20 75 | 6e 64 6f 2d 6c 69 73 74 |o-list u|ndo-list|
|00004f40| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|00004f50| 21 88 5c 6e 13 c0 87 22 | 20 5b 61 72 63 68 69 76 |!.\n..."| [archiv|
|00004f60| 65 2d 63 68 65 63 6b 2d | 64 6f 73 20 74 20 75 6e |e-check-|dos t un|
|00004f70| 64 6f 2d 6c 69 73 74 20 | 62 75 66 66 65 72 2d 75 |do-list |buffer-u|
|00004f80| 6e 64 6f 2d 6c 69 73 74 | 5d 20 32 29 29 20 74 20 |ndo-list|] 2)) t |
|00004f90| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00004fa0| 5c 6e 22 20 6e 69 6c 20 | 72 65 70 6c 61 63 65 2d |\n" nil |replace-|
|00004fb0| 6d 61 74 63 68 20 22 0d | 5c 6e 22 20 62 75 66 66 |match ".|\n" buff|
|00004fc0| 65 72 2d 66 69 6c 65 2d | 74 79 70 65 20 61 72 63 |er-file-|type arc|
|00004fd0| 68 69 76 65 2d 77 72 69 | 74 65 2d 66 69 6c 65 2d |hive-wri|te-file-|
|00004fe0| 6d 65 6d 62 65 72 20 6d | 65 73 73 61 67 65 20 22 |member m|essage "|
|00004ff0| 55 70 64 61 74 69 6e 67 | 20 61 72 63 68 69 76 65 |Updating| archive|
|00005000| 2e 2e 2e 22 20 61 72 63 | 68 69 76 65 2d 73 75 70 |..." arc|hive-sup|
|00005010| 65 72 69 6f 72 2d 62 75 | 66 66 65 72 20 22 77 72 |erior-bu|ffer "wr|
|00005020| 69 74 65 2d 66 69 6c 65 | 2d 6d 65 6d 62 65 72 22 |ite-file|-member"|
|00005030| 20 73 75 66 66 69 78 20 | 69 6e 74 65 72 6e 20 22 | suffix |intern "|
|00005040| 61 72 63 68 69 76 65 2d | 22 20 73 79 6d 62 6f 6c |archive-|" symbol|
|00005050| 2d 6e 61 6d 65 20 61 72 | 63 68 69 76 65 2d 73 75 |-name ar|chive-su|
|00005060| 62 74 79 70 65 20 22 2d | 22 20 62 75 66 66 65 72 |btype "-|" buffer|
|00005070| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 61 72 63 68 69 |-file-na|me archi|
|00005080| 76 65 20 77 72 69 74 65 | 72 20 66 62 6f 75 6e 64 |ve write|r fbound|
|00005090| 70 20 61 72 63 68 69 76 | 65 2d 73 75 62 66 69 6c |p archiv|e-subfil|
|000050a0| 65 2d 6d 6f 64 65 20 61 | 72 63 68 69 76 65 2d 2a |e-mode a|rchive-*|
|000050b0| 2d 77 72 69 74 65 2d 66 | 69 6c 65 2d 6d 65 6d 62 |-write-f|ile-memb|
|000050c0| 65 72 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |er set-b|uffer-mo|
|000050d0| 64 69 66 69 65 64 2d 70 | 20 22 55 70 64 61 74 69 |dified-p| "Updati|
|000050e0| 6e 67 20 61 72 63 68 69 | 76 65 2e 2e 2e 64 6f 6e |ng archi|ve...don|
|000050f0| 65 22 20 72 65 76 65 72 | 74 2d 62 75 66 66 65 72 |e" rever|t-buffer|
|00005100| 5d 20 35 5d 20 61 72 63 | 68 69 76 65 2d 2a 2d 77 |] 5] arc|hive-*-w|
|00005110| 72 69 74 65 2d 66 69 6c | 65 2d 6d 65 6d 62 65 72 |rite-fil|e-member|
|00005120| 20 23 5b 28 61 72 63 68 | 69 76 65 20 64 65 73 63 | #[(arch|ive desc|
|00005130| 72 20 63 6f 6d 6d 61 6e | 64 29 20 22 08 c1 48 1a |r comman|d) "..H.|
|00005140| c3 5c 6e 0c 5c 22 1d c6 | c7 0c 21 21 1e 08 c7 0e |.\n.\"..|..!!....|
|00005150| 08 21 1e 09 ca 8e cb cc | 0d 21 cd 5c 22 88 ce 65 |.!......|.!.\"..e|
|00005160| 64 0d cf d0 25 88 08 d1 | 48 ab 8a d2 0d d3 08 d1 |d...%...|H.......|
|00005170| 48 d4 5c 22 5c 22 88 d5 | d6 0e 17 40 cf 89 89 d8 |H.\"\"..|...@....|
|00005180| 0e 17 41 0e 19 5c 6e 44 | 5c 22 26 06 89 1e 1a c1 |..A..\nD|\"&.....|
|00005190| 9a 3f ad 85 db dc 0e 1a | 5c 22 2e 06 87 22 20 5b |.?......|\"..." [|
|000051a0| 64 65 73 63 72 20 30 20 | 65 6e 61 6d 65 20 65 78 |descr 0 |ename ex|
|000051b0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 61 |pand-fil|e-name a|
|000051c0| 72 63 68 69 76 65 2d 74 | 6d 70 64 69 72 20 74 6d |rchive-t|mpdir tm|
|000051d0| 70 66 69 6c 65 20 64 69 | 72 65 63 74 6f 72 79 2d |pfile di|rectory-|
|000051e0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 6e |file-nam|e file-n|
|000051f0| 61 6d 65 2d 61 73 2d 64 | 69 72 65 63 74 6f 72 79 |ame-as-d|irectory|
|00005200| 20 74 6f 70 20 64 65 66 | 61 75 6c 74 2d 64 69 72 | top def|ault-dir|
|00005210| 65 63 74 6f 72 79 20 28 | 28 61 72 63 68 69 76 65 |ectory (|(archive|
|00005220| 2d 64 65 6c 65 74 65 2d | 6c 6f 63 61 6c 20 74 6d |-delete-|local tm|
|00005230| 70 66 69 6c 65 29 29 20 | 6d 61 6b 65 2d 64 69 72 |pfile)) |make-dir|
|00005240| 65 63 74 6f 72 79 20 66 | 69 6c 65 2d 6e 61 6d 65 |ectory f|ile-name|
|00005250| 2d 64 69 72 65 63 74 6f | 72 79 20 74 20 77 72 69 |-directo|ry t wri|
|00005260| 74 65 2d 72 65 67 69 6f | 6e 20 6e 69 6c 20 6e 6f |te-regio|n nil no|
|00005270| 6d 65 73 73 61 67 65 20 | 33 20 73 65 74 2d 66 69 |message |3 set-fi|
|00005280| 6c 65 2d 6d 6f 64 65 73 | 20 6c 6f 67 69 6f 72 20 |le-modes| logior |
|00005290| 32 35 36 20 61 70 70 6c | 79 20 63 61 6c 6c 2d 70 |256 appl|y call-p|
|000052a0| 72 6f 63 65 73 73 20 63 | 6f 6d 6d 61 6e 64 20 61 |rocess c|ommand a|
|000052b0| 70 70 65 6e 64 20 61 72 | 63 68 69 76 65 20 65 78 |ppend ar|chive ex|
|000052c0| 69 74 63 6f 64 65 20 65 | 72 72 6f 72 20 22 55 70 |itcode e|rror "Up|
|000052d0| 64 61 74 69 6e 67 20 77 | 61 73 20 75 6e 73 75 63 |dating w|as unsuc|
|000052e0| 63 65 73 73 66 75 6c 20 | 28 25 53 29 22 5d 20 31 |cessful |(%S)"] 1|
|000052f0| 31 5d 20 61 72 63 68 69 | 76 65 2d 77 72 69 74 65 |1] archi|ve-write|
|00005300| 2d 66 69 6c 65 20 23 5b | 6e 69 6c 20 22 8a c0 09 |-file #[|nil "...|
|00005310| 64 5c 6e c3 c4 25 88 c5 | c3 21 88 29 c4 87 22 20 |d\n..%..|.!.).." |
|00005320| 5b 77 72 69 74 65 2d 72 | 65 67 69 6f 6e 20 61 72 |[write-r|egion ar|
|00005330| 63 68 69 76 65 2d 70 72 | 6f 70 65 72 2d 66 69 6c |chive-pr|oper-fil|
|00005340| 65 2d 73 74 61 72 74 20 | 62 75 66 66 65 72 2d 66 |e-start |buffer-f|
|00005350| 69 6c 65 2d 6e 61 6d 65 | 20 6e 69 6c 20 74 20 73 |ile-name| nil t s|
|00005360| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00005370| 65 64 2d 70 5d 20 36 5d | 5d 20 32 29 0a 28 66 73 |ed-p] 6]|] 2).(fs|
|00005380| 65 74 20 27 61 72 63 68 | 69 76 65 2d 66 6c 61 67 |et 'arch|ive-flag|
|00005390| 2d 64 65 6c 65 74 65 64 | 20 23 5b 28 70 20 26 6f |-deleted| #[(p &o|
|000053a0| 70 74 69 6f 6e 61 6c 20 | 74 79 70 65 29 20 22 08 |ptional |type) ".|
|000053b0| ac 82 c1 10 c2 79 88 0b | c2 59 ab 83 c4 aa 81 c5 |.....y..|.Y......|
|000053c0| c6 20 c7 1e 08 1e 09 1e | 5c 6e 0b c2 55 ac 98 cb |. ......|\n..U...|
|000053d0| cc 21 ab 87 cd c4 21 88 | 08 63 88 0e 5c 6e 79 88 |.!....!.|.c..\ny.|
|000053e0| 0b 0e 5c 6e 5a 89 13 aa | 64 ce 0e 09 21 88 2b cf |..\nZ...|d...!.+.|
|000053f0| c2 21 87 22 20 5b 74 79 | 70 65 20 36 38 20 30 20 |.!." [ty|pe 68 0 |
|00005400| 70 20 31 20 2d 31 20 62 | 75 66 66 65 72 2d 6d 6f |p 1 -1 b|uffer-mo|
|00005410| 64 69 66 69 65 64 2d 70 | 20 6e 69 6c 20 62 75 66 |dified-p| nil buf|
|00005420| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 6d 6f |fer-read|-only mo|
|00005430| 64 69 66 69 65 64 20 73 | 69 67 6e 20 61 72 63 68 |dified s|ign arch|
|00005440| 69 76 65 2d 67 65 74 2d | 64 65 73 63 72 20 74 20 |ive-get-|descr t |
|00005450| 64 65 6c 65 74 65 2d 63 | 68 61 72 20 73 65 74 2d |delete-c|har set-|
|00005460| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00005470| 70 20 61 72 63 68 69 76 | 65 2d 6e 65 78 74 2d 6c |p archiv|e-next-l|
|00005480| 69 6e 65 5d 20 34 20 22 | 5c 0a 49 6e 20 61 72 63 |ine] 4 "|\.In arc|
|00005490| 68 69 76 65 20 6d 6f 64 | 65 2c 20 6d 61 72 6b 20 |hive mod|e, mark |
|000054a0| 74 68 69 73 20 6d 65 6d | 62 65 72 20 74 6f 20 62 |this mem|ber to b|
|000054b0| 65 20 64 65 6c 65 74 65 | 64 20 66 72 6f 6d 20 74 |e delete|d from t|
|000054c0| 68 65 20 61 72 63 68 69 | 76 65 2e 0a 57 69 74 68 |he archi|ve..With|
|000054d0| 20 61 20 70 72 65 66 69 | 78 20 61 72 67 75 6d 65 | a prefi|x argume|
|000054e0| 6e 74 2c 20 6d 61 72 6b | 20 74 68 61 74 20 6d 61 |nt, mark| that ma|
|000054f0| 6e 79 20 66 69 6c 65 73 | 2e 22 20 22 70 22 5d 29 |ny files|." "p"])|
|00005500| 0a 28 66 73 65 74 20 27 | 61 72 63 68 69 76 65 2d |.(fset '|archive-|
|00005510| 75 6e 66 6c 61 67 20 23 | 5b 28 70 29 20 22 c0 09 |unflag #|[(p) "..|
|00005520| c2 5c 22 87 22 20 5b 61 | 72 63 68 69 76 65 2d 66 |.\"." [a|rchive-f|
|00005530| 6c 61 67 2d 64 65 6c 65 | 74 65 64 20 70 20 33 32 |lag-dele|ted p 32|
|00005540| 5d 20 33 20 22 5c 0a 49 | 6e 20 61 72 63 68 69 76 |] 3 "\.I|n archiv|
|00005550| 65 20 6d 6f 64 65 2c 20 | 75 6e 2d 6d 61 72 6b 20 |e mode, |un-mark |
|00005560| 74 68 69 73 20 6d 65 6d | 62 65 72 20 69 66 20 69 |this mem|ber if i|
|00005570| 74 20 69 73 20 6d 61 72 | 6b 65 64 20 74 6f 20 62 |t is mar|ked to b|
|00005580| 65 20 64 65 6c 65 74 65 | 64 2e 0a 57 69 74 68 20 |e delete|d..With |
|00005590| 61 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |a prefix| argumen|
|000055a0| 74 2c 20 75 6e 2d 6d 61 | 72 6b 20 74 68 61 74 20 |t, un-ma|rk that |
|000055b0| 6d 61 6e 79 20 66 69 6c | 65 73 20 66 6f 72 77 61 |many fil|es forwa|
|000055c0| 72 64 2e 22 20 22 70 22 | 5d 29 0a 28 66 73 65 74 |rd." "p"|]).(fset|
|000055d0| 20 27 61 72 63 68 69 76 | 65 2d 75 6e 66 6c 61 67 | 'archiv|e-unflag|
|000055e0| 2d 62 61 63 6b 77 61 72 | 64 73 20 23 5b 28 70 29 |-backwar|ds #[(p)|
|000055f0| 20 22 c0 09 5b c2 5c 22 | 87 22 20 5b 61 72 63 68 | "..[.\"|." [arch|
|00005600| 69 76 65 2d 66 6c 61 67 | 2d 64 65 6c 65 74 65 64 |ive-flag|-deleted|
|00005610| 20 70 20 33 32 5d 20 33 | 20 22 5c 0a 49 6e 20 61 | p 32] 3| "\.In a|
|00005620| 72 63 68 69 76 65 20 6d | 6f 64 65 2c 20 75 6e 2d |rchive m|ode, un-|
|00005630| 6d 61 72 6b 20 74 68 69 | 73 20 6d 65 6d 62 65 72 |mark thi|s member|
|00005640| 20 69 66 20 69 74 20 69 | 73 20 6d 61 72 6b 65 64 | if it i|s marked|
|00005650| 20 74 6f 20 62 65 20 64 | 65 6c 65 74 65 64 2e 0a | to be d|eleted..|
|00005660| 57 69 74 68 20 61 20 70 | 72 65 66 69 78 20 61 72 |With a p|refix ar|
|00005670| 67 75 6d 65 6e 74 2c 20 | 75 6e 2d 6d 61 72 6b 20 |gument, |un-mark |
|00005680| 74 68 61 74 20 6d 61 6e | 79 20 6d 65 6d 62 65 72 |that man|y member|
|00005690| 73 20 62 61 63 6b 77 61 | 72 64 2e 22 20 22 70 22 |s backwa|rd." "p"|
|000056a0| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 63 68 69 76 |]).(fset| 'archiv|
|000056b0| 65 2d 75 6e 6d 61 72 6b | 2d 61 6c 6c 2d 66 69 6c |e-unmark|-all-fil|
|000056c0| 65 73 20 23 5b 6e 69 6c | 20 22 c0 20 c1 1a 1b 8a |es #[nil| ". ....|
|000056d0| 0c 62 88 60 0d 57 ab 91 | 67 c6 55 ac 87 c7 c8 21 |.b.`.W..|g.U....!|
|000056e0| 88 c6 63 88 c8 79 88 aa | 6a 29 c9 0b 21 2a 87 22 |..c..y..|j)..!*."|
|000056f0| 20 5b 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 | [buffer|-modifie|
|00005700| 64 2d 70 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |d-p nil |buffer-r|
|00005710| 65 61 64 2d 6f 6e 6c 79 | 20 6d 6f 64 69 66 69 65 |ead-only| modifie|
|00005720| 64 20 61 72 63 68 69 76 | 65 2d 66 69 6c 65 2d 6c |d archiv|e-file-l|
|00005730| 69 73 74 2d 73 74 61 72 | 74 20 61 72 63 68 69 76 |ist-star|t archiv|
|00005740| 65 2d 66 69 6c 65 2d 6c | 69 73 74 2d 65 6e 64 20 |e-file-l|ist-end |
|00005750| 33 32 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 31 |32 delet|e-char 1|
|00005760| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00005770| 66 69 65 64 2d 70 5d 20 | 32 20 22 5c 0a 52 65 6d |fied-p] |2 "\.Rem|
|00005780| 6f 76 65 20 61 6c 6c 20 | 6d 61 72 6b 73 2e 22 20 |ove all |marks." |
|00005790| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 61 72 63 |nil]).(f|set 'arc|
|000057a0| 68 69 76 65 2d 6d 61 72 | 6b 20 23 5b 28 70 29 20 |hive-mar|k #[(p) |
|000057b0| 22 c0 09 c2 5c 22 87 22 | 20 5b 61 72 63 68 69 76 |"...\"."| [archiv|
|000057c0| 65 2d 66 6c 61 67 2d 64 | 65 6c 65 74 65 64 20 70 |e-flag-d|eleted p|
|000057d0| 20 34 32 5d 20 33 20 22 | 5c 0a 49 6e 20 61 72 63 | 42] 3 "|\.In arc|
|000057e0| 68 69 76 65 20 6d 6f 64 | 65 2c 20 6d 61 72 6b 20 |hive mod|e, mark |
|000057f0| 74 68 69 73 20 6d 65 6d | 62 65 72 20 66 6f 72 20 |this mem|ber for |
|00005800| 67 72 6f 75 70 20 6f 70 | 65 72 61 74 69 6f 6e 73 |group op|erations|
|00005810| 2e 0a 57 69 74 68 20 61 | 20 70 72 65 66 69 78 20 |..With a| prefix |
|00005820| 61 72 67 75 6d 65 6e 74 | 2c 20 6d 61 72 6b 20 74 |argument|, mark t|
|00005830| 68 61 74 20 6d 61 6e 79 | 20 6d 65 6d 62 65 72 73 |hat many| members|
|00005840| 2e 0a 55 73 65 20 5c 5c | 5b 61 72 63 68 69 76 65 |..Use \\|[archive|
|00005850| 2d 75 6e 6d 61 72 6b 2d | 61 6c 6c 2d 66 69 6c 65 |-unmark-|all-file|
|00005860| 73 5d 20 74 6f 20 72 65 | 6d 6f 76 65 20 61 6c 6c |s] to re|move all|
|00005870| 20 6d 61 72 6b 73 2e 22 | 20 22 70 22 5d 29 0a 28 | marks."| "p"]).(|
|00005880| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00005890| c3 4d 88 c4 c5 4d 87 22 | 20 5b 61 72 63 68 69 76 |.M...M."| [archiv|
|000058a0| 65 2d 67 65 74 2d 6d 61 | 72 6b 65 64 20 23 5b 28 |e-get-ma|rked #[(|
|000058b0| 6d 61 72 6b 20 26 6f 70 | 74 69 6f 6e 61 6c 20 64 |mark &op|tional d|
|000058c0| 65 66 61 75 6c 74 29 20 | 22 c0 19 8a 5c 6e 62 88 |efault) |"...\nb.|
|000058d0| 60 0b 57 ab 8f 67 0c 55 | ab 85 c5 20 09 42 11 c6 |`.W..g.U|... .B..|
|000058e0| 79 88 aa 6c 29 09 9f ae | 87 0e 07 ad 83 c5 20 43 |y..l)...|...... C|
|000058f0| 29 87 22 20 5b 6e 69 6c | 20 66 69 6c 65 73 20 61 |)." [nil| files a|
|00005900| 72 63 68 69 76 65 2d 66 | 69 6c 65 2d 6c 69 73 74 |rchive-f|ile-list|
|00005910| 2d 73 74 61 72 74 20 61 | 72 63 68 69 76 65 2d 66 |-start a|rchive-f|
|00005920| 69 6c 65 2d 6c 69 73 74 | 2d 65 6e 64 20 6d 61 72 |ile-list|-end mar|
|00005930| 6b 20 61 72 63 68 69 76 | 65 2d 67 65 74 2d 64 65 |k archiv|e-get-de|
|00005940| 73 63 72 20 31 20 64 65 | 66 61 75 6c 74 5d 20 32 |scr 1 de|fault] 2|
|00005950| 5d 20 61 72 63 68 69 76 | 65 2d 6e 65 78 74 2d 6c |] archiv|e-next-l|
|00005960| 69 6e 65 20 23 5b 28 70 | 29 20 22 08 79 88 6d ae |ine #[(p|) ".y.m.|
|00005970| 82 09 75 87 22 20 5b 70 | 20 61 72 63 68 69 76 65 |..u." [p| archive|
|00005980| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 69 6e 64 65 6e |-file-na|me-inden|
|00005990| 74 5d 20 31 20 6e 69 6c | 20 22 70 22 5d 20 61 72 |t] 1 nil| "p"] ar|
|000059a0| 63 68 69 76 65 2d 70 72 | 65 76 69 6f 75 73 2d 6c |chive-pr|evious-l|
|000059b0| 69 6e 65 20 23 5b 28 70 | 29 20 22 c0 09 5b 21 87 |ine #[(p|) "..[!.|
|000059c0| 22 20 5b 61 72 63 68 69 | 76 65 2d 6e 65 78 74 2d |" [archi|ve-next-|
|000059d0| 6c 69 6e 65 20 70 5d 20 | 32 20 6e 69 6c 20 22 70 |line p] |2 nil "p|
|000059e0| 22 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 61 72 |"]] 2).(|fset 'ar|
|000059f0| 63 68 69 76 65 2d 63 68 | 6d 6f 64 2d 65 6e 74 72 |chive-ch|mod-entr|
|00005a00| 79 20 23 5b 28 6e 65 77 | 2d 6d 6f 64 65 29 20 22 |y #[(new|-mode) "|
|00005a10| 08 ab 84 c1 c2 21 88 c3 | 1c c5 c6 c7 0e 08 21 c9 |.....!..|......!.|
|00005a20| 0c 52 21 29 1e 5c 6e cb | 0e 5c 6e 21 ab 8e 0e 5c |.R!).\n.|.\n!...\|
|00005a30| 6e 0e 0c cd ce cf 5c 22 | 5c 22 88 d0 20 aa 83 c1 |n.....\"|\".. ...|
|00005a40| d1 21 29 87 22 20 5b 61 | 72 63 68 69 76 65 2d 72 |.!)." [a|rchive-r|
|00005a50| 65 61 64 2d 6f 6e 6c 79 | 20 65 72 72 6f 72 20 22 |ead-only| error "|
|00005a60| 41 72 63 68 69 76 65 20 | 69 73 20 72 65 61 64 2d |Archive |is read-|
|00005a70| 6f 6e 6c 79 22 20 22 63 | 68 6d 6f 64 2d 65 6e 74 |only" "c|hmod-ent|
|00005a80| 72 79 22 20 73 75 66 66 | 69 78 20 69 6e 74 65 72 |ry" suff|ix inter|
|00005a90| 6e 20 22 61 72 63 68 69 | 76 65 2d 22 20 73 79 6d |n "archi|ve-" sym|
|00005aa0| 62 6f 6c 2d 6e 61 6d 65 | 20 61 72 63 68 69 76 65 |bol-name| archive|
|00005ab0| 2d 73 75 62 74 79 70 65 | 20 22 2d 22 20 66 75 6e |-subtype| "-" fun|
|00005ac0| 63 20 66 62 6f 75 6e 64 | 70 20 6e 65 77 2d 6d 6f |c fbound|p new-mo|
|00005ad0| 64 65 20 61 72 63 68 69 | 76 65 2d 67 65 74 2d 6d |de archi|ve-get-m|
|00005ae0| 61 72 6b 65 64 20 34 32 | 20 74 20 61 72 63 68 69 |arked 42| t archi|
|00005af0| 76 65 2d 72 65 73 75 6d | 6d 61 72 69 7a 65 20 22 |ve-resum|marize "|
|00005b00| 53 65 74 74 69 6e 67 20 | 6d 6f 64 65 20 62 69 74 |Setting |mode bit|
|00005b10| 73 20 69 73 20 6e 6f 74 | 20 73 75 70 70 6f 72 74 |s is not| support|
|00005b20| 65 64 20 66 6f 72 20 74 | 68 69 73 20 61 72 63 68 |ed for t|his arch|
|00005b30| 69 76 65 20 74 79 70 65 | 22 5d 20 35 20 22 5c 0a |ive type|"] 5 "\.|
|00005b40| 43 68 61 6e 67 65 20 74 | 68 65 20 70 72 6f 74 65 |Change t|he prote|
|00005b50| 63 74 69 6f 6e 20 62 69 | 74 73 20 61 73 73 6f 63 |ction bi|ts assoc|
|00005b60| 69 61 74 65 64 20 77 69 | 74 68 20 61 6c 6c 20 6d |iated wi|th all m|
|00005b70| 61 72 6b 65 64 20 6f 72 | 20 74 68 69 73 20 6d 65 |arked or| this me|
|00005b80| 6d 62 65 72 0a 69 6e 20 | 74 68 65 20 61 72 63 68 |mber.in |the arch|
|00005b90| 69 76 65 2e 0a 54 68 65 | 20 6e 65 77 20 70 72 6f |ive..The| new pro|
|00005ba0| 74 65 63 74 69 6f 6e 20 | 62 69 74 73 20 63 61 6e |tection |bits can|
|00005bb0| 20 65 69 74 68 65 72 20 | 62 65 20 73 70 65 63 69 | either |be speci|
|00005bc0| 66 69 65 64 20 61 73 20 | 61 6e 20 6f 63 74 61 6c |fied as |an octal|
|00005bd0| 20 6e 75 6d 62 65 72 20 | 6f 72 0a 61 73 20 61 20 | number |or.as a |
|00005be0| 72 65 6c 61 74 69 76 65 | 20 63 68 61 6e 67 65 20 |relative| change |
|00005bf0| 6c 69 6b 65 20 5c 22 67 | 2b 72 77 5c 22 20 61 73 |like \"g|+rw\" as|
|00005c00| 20 66 6f 72 20 63 68 6d | 6f 64 28 32 29 22 20 22 | for chm|od(2)" "|
|00005c10| 73 4e 65 77 20 6d 6f 64 | 65 20 28 6f 63 74 61 6c |sNew mod|e (octal|
|00005c20| 20 6f 72 20 72 65 6c 61 | 74 69 76 65 29 3a 20 22 | or rela|tive): "|
|00005c30| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 63 68 69 76 |]).(fset| 'archiv|
|00005c40| 65 2d 63 68 6f 77 6e 2d | 65 6e 74 72 79 20 23 5b |e-chown-|entry #[|
|00005c50| 28 6e 65 77 2d 75 69 64 | 29 20 22 08 ab 84 c1 c2 |(new-uid|) ".....|
|00005c60| 21 88 c3 1c c5 c6 c7 0e | 08 21 c9 0c 52 21 29 1e |!.......|.!..R!).|
|00005c70| 5c 6e cb 0e 5c 6e 21 ab | 8e 0e 5c 6e 0e 0c cd ce |\n..\n!.|..\n....|
|00005c80| cf 5c 22 5c 22 88 d0 20 | aa 83 c1 d1 21 29 87 22 |.\"\".. |....!)."|
|00005c90| 20 5b 61 72 63 68 69 76 | 65 2d 72 65 61 64 2d 6f | [archiv|e-read-o|
|00005ca0| 6e 6c 79 20 65 72 72 6f | 72 20 22 41 72 63 68 69 |nly erro|r "Archi|
|00005cb0| 76 65 20 69 73 20 72 65 | 61 64 2d 6f 6e 6c 79 22 |ve is re|ad-only"|
|00005cc0| 20 22 63 68 6f 77 6e 2d | 65 6e 74 72 79 22 20 73 | "chown-|entry" s|
|00005cd0| 75 66 66 69 78 20 69 6e | 74 65 72 6e 20 22 61 72 |uffix in|tern "ar|
|00005ce0| 63 68 69 76 65 2d 22 20 | 73 79 6d 62 6f 6c 2d 6e |chive-" |symbol-n|
|00005cf0| 61 6d 65 20 61 72 63 68 | 69 76 65 2d 73 75 62 74 |ame arch|ive-subt|
|00005d00| 79 70 65 20 22 2d 22 20 | 66 75 6e 63 20 66 62 6f |ype "-" |func fbo|
|00005d10| 75 6e 64 70 20 6e 65 77 | 2d 75 69 64 20 61 72 63 |undp new|-uid arc|
|00005d20| 68 69 76 65 2d 67 65 74 | 2d 6d 61 72 6b 65 64 20 |hive-get|-marked |
|00005d30| 34 32 20 74 20 61 72 63 | 68 69 76 65 2d 72 65 73 |42 t arc|hive-res|
|00005d40| 75 6d 6d 61 72 69 7a 65 | 20 22 53 65 74 74 69 6e |ummarize| "Settin|
|00005d50| 67 20 6f 77 6e 65 72 20 | 69 73 20 6e 6f 74 20 73 |g owner |is not s|
|00005d60| 75 70 70 6f 72 74 65 64 | 20 66 6f 72 20 74 68 69 |upported| for thi|
|00005d70| 73 20 61 72 63 68 69 76 | 65 20 74 79 70 65 22 5d |s archiv|e type"]|
|00005d80| 20 35 20 22 5c 0a 43 68 | 61 6e 67 65 20 74 68 65 | 5 "\.Ch|ange the|
|00005d90| 20 6f 77 6e 65 72 20 6f | 66 20 61 6c 6c 20 6d 61 | owner o|f all ma|
|00005da0| 72 6b 65 64 20 6f 72 20 | 74 68 69 73 20 6d 65 6d |rked or |this mem|
|00005db0| 62 65 72 2e 22 20 22 6e | 4e 65 77 20 75 69 64 3a |ber." "n|New uid:|
|00005dc0| 20 22 5d 29 0a 28 66 73 | 65 74 20 27 61 72 63 68 | "]).(fs|et 'arch|
|00005dd0| 69 76 65 2d 63 68 67 72 | 70 2d 65 6e 74 72 79 20 |ive-chgr|p-entry |
|00005de0| 23 5b 28 6e 65 77 2d 67 | 69 64 29 20 22 08 ab 84 |#[(new-g|id) "...|
|00005df0| c1 c2 21 88 c3 1c c5 c6 | c7 0e 08 21 c9 0c 52 21 |..!.....|...!..R!|
|00005e00| 29 1e 5c 6e cb 0e 5c 6e | 21 ab 8e 0e 5c 6e 0e 0c |).\n..\n|!...\n..|
|00005e10| cd ce cf 5c 22 5c 22 88 | d0 20 aa 83 c1 d1 21 29 |...\"\".|. ....!)|
|00005e20| 87 22 20 5b 61 72 63 68 | 69 76 65 2d 72 65 61 64 |." [arch|ive-read|
|00005e30| 2d 6f 6e 6c 79 20 65 72 | 72 6f 72 20 22 41 72 63 |-only er|ror "Arc|
|00005e40| 68 69 76 65 20 69 73 20 | 72 65 61 64 2d 6f 6e 6c |hive is |read-onl|
|00005e50| 79 22 20 22 63 68 67 72 | 70 2d 65 6e 74 72 79 22 |y" "chgr|p-entry"|
|00005e60| 20 73 75 66 66 69 78 20 | 69 6e 74 65 72 6e 20 22 | suffix |intern "|
|00005e70| 61 72 63 68 69 76 65 2d | 22 20 73 79 6d 62 6f 6c |archive-|" symbol|
|00005e80| 2d 6e 61 6d 65 20 61 72 | 63 68 69 76 65 2d 73 75 |-name ar|chive-su|
|00005e90| 62 74 79 70 65 20 22 2d | 22 20 66 75 6e 63 20 66 |btype "-|" func f|
|00005ea0| 62 6f 75 6e 64 70 20 6e | 65 77 2d 67 69 64 20 61 |boundp n|ew-gid a|
|00005eb0| 72 63 68 69 76 65 2d 67 | 65 74 2d 6d 61 72 6b 65 |rchive-g|et-marke|
|00005ec0| 64 20 34 32 20 74 20 61 | 72 63 68 69 76 65 2d 72 |d 42 t a|rchive-r|
|00005ed0| 65 73 75 6d 6d 61 72 69 | 7a 65 20 22 53 65 74 74 |esummari|ze "Sett|
|00005ee0| 69 6e 67 20 67 72 6f 75 | 70 20 69 73 20 6e 6f 74 |ing grou|p is not|
|00005ef0| 20 73 75 70 70 6f 72 74 | 65 64 20 66 6f 72 20 74 | support|ed for t|
|00005f00| 68 69 73 20 61 72 63 68 | 69 76 65 20 74 79 70 65 |his arch|ive type|
|00005f10| 22 5d 20 35 20 22 5c 0a | 43 68 61 6e 67 65 20 74 |"] 5 "\.|Change t|
|00005f20| 68 65 20 67 72 6f 75 70 | 20 6f 66 20 61 6c 6c 20 |he group| of all |
|00005f30| 6d 61 72 6b 65 64 20 6f | 72 20 74 68 69 73 20 6d |marked o|r this m|
|00005f40| 65 6d 62 65 72 2e 22 20 | 22 6e 4e 65 77 20 67 69 |ember." |"nNew gi|
|00005f50| 64 3a 20 22 5d 29 0a 28 | 66 73 65 74 20 27 61 72 |d: "]).(|fset 'ar|
|00005f60| 63 68 69 76 65 2d 65 78 | 70 75 6e 67 65 20 23 5b |chive-ex|punge #[|
|00005f70| 6e 69 6c 20 22 c0 19 8a | 5c 6e 62 88 60 0b 57 ab |nil "...|\nb.`.W.|
|00005f80| 91 67 c4 55 ab 87 c5 20 | c6 48 09 42 11 c7 79 88 |.g.U... |.H.B..y.|
|00005f90| aa 6a 29 09 9f 89 11 ad | dd 0e 08 ab 85 c9 ca 21 |.j).....|.......!|
|00005fa0| ad d4 cb cc cd 09 47 09 | 41 ac 83 ce aa 81 cf 23 |......G.|A......#|
|00005fb0| 21 ac 85 c9 d0 21 ad be | d1 d2 20 21 d3 1e 14 d5 |!....!..|.. !....|
|00005fc0| d6 d7 0e 18 21 d9 0e 14 | 52 21 29 1e 1a 1e 1b dc |....!...|R!).....|
|00005fd0| 0e 1a 21 ab 89 0e 1a 0e | 1b 09 5c 22 88 aa 89 dd |..!.....|..\"....|
|00005fe0| 0e 1b 09 0e 1a 4a 23 88 | de c0 21 88 0e 1f ab 84 |.....J#.|..!.....|
|00005ff0| e0 20 aa 82 e1 20 2a 29 | 87 22 20 5b 6e 69 6c 20 |. ... *)|." [nil |
|00006000| 66 69 6c 65 73 20 61 72 | 63 68 69 76 65 2d 66 69 |files ar|chive-fi|
|00006010| 6c 65 2d 6c 69 73 74 2d | 73 74 61 72 74 20 61 72 |le-list-|start ar|
|00006020| 63 68 69 76 65 2d 66 69 | 6c 65 2d 6c 69 73 74 2d |chive-fi|le-list-|
|00006030| 65 6e 64 20 36 38 20 61 | 72 63 68 69 76 65 2d 67 |end 68 a|rchive-g|
|00006040| 65 74 2d 64 65 73 63 72 | 20 30 20 31 20 61 72 63 |et-descr| 0 1 arc|
|00006050| 68 69 76 65 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 65 |hive-rea|d-only e|
|00006060| 72 72 6f 72 20 22 41 72 | 63 68 69 76 65 20 69 73 |rror "Ar|chive is|
|00006070| 20 72 65 61 64 2d 6f 6e | 6c 79 22 20 79 65 73 2d | read-on|ly" yes-|
|00006080| 6f 72 2d 6e 6f 2d 70 20 | 66 6f 72 6d 61 74 20 22 |or-no-p |format "|
|00006090| 52 65 61 6c 6c 79 20 64 | 65 6c 65 74 65 20 25 64 |Really d|elete %d|
|000060a0| 20 6d 65 6d 62 65 72 25 | 73 3f 20 22 20 22 22 20 | member%|s? " "" |
|000060b0| 22 73 22 20 22 4f 70 65 | 72 61 74 69 6f 6e 20 61 |"s" "Ope|ration a|
|000060c0| 62 6f 72 74 65 64 22 20 | 61 72 63 68 69 76 65 2d |borted" |archive-|
|000060d0| 6d 61 79 62 65 2d 63 6f | 70 79 20 62 75 66 66 65 |maybe-co|py buffe|
|000060e0| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 65 78 70 |r-file-n|ame "exp|
|000060f0| 75 6e 67 65 22 20 73 75 | 66 66 69 78 20 69 6e 74 |unge" su|ffix int|
|00006100| 65 72 6e 20 22 61 72 63 | 68 69 76 65 2d 22 20 73 |ern "arc|hive-" s|
|00006110| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 61 72 63 68 69 |ymbol-na|me archi|
|00006120| 76 65 2d 73 75 62 74 79 | 70 65 20 22 2d 22 20 65 |ve-subty|pe "-" e|
|00006130| 78 70 75 6e 67 65 72 20 | 61 72 63 68 69 76 65 20 |xpunger |archive |
|00006140| 66 62 6f 75 6e 64 70 20 | 61 72 63 68 69 76 65 2d |fboundp |archive-|
|00006150| 2a 2d 65 78 70 75 6e 67 | 65 20 61 72 63 68 69 76 |*-expung|e archiv|
|00006160| 65 2d 6d 61 79 62 65 2d | 75 70 64 61 74 65 20 61 |e-maybe-|update a|
|00006170| 72 63 68 69 76 65 2d 72 | 65 6d 6f 74 65 20 61 72 |rchive-r|emote ar|
|00006180| 63 68 69 76 65 2d 72 65 | 73 75 6d 6d 61 72 69 7a |chive-re|summariz|
|00006190| 65 20 72 65 76 65 72 74 | 2d 62 75 66 66 65 72 5d |e revert|-buffer]|
|000061a0| 20 37 20 22 5c 0a 44 6f | 20 74 68 65 20 66 6c 61 | 7 "\.Do| the fla|
|000061b0| 67 67 65 64 20 64 65 6c | 65 74 69 6f 6e 73 2e 22 |gged del|etions."|
|000061c0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 61 72 | nil]).(|fset 'ar|
|000061d0| 63 68 69 76 65 2d 2a 2d | 65 78 70 75 6e 67 65 20 |chive-*-|expunge |
|000061e0| 23 5b 28 61 72 63 68 69 | 76 65 20 66 69 6c 65 73 |#[(archi|ve files|
|000061f0| 20 63 6f 6d 6d 61 6e 64 | 29 20 22 c0 c1 5c 6e 40 | command|) "..\n@|
|00006200| c3 89 89 c4 5c 6e 41 0d | 0e 06 42 5c 22 26 06 87 |....\nA.|..B\"&..|
|00006210| 22 20 5b 61 70 70 6c 79 | 20 63 61 6c 6c 2d 70 72 |" [apply| call-pr|
|00006220| 6f 63 65 73 73 20 63 6f | 6d 6d 61 6e 64 20 6e 69 |ocess co|mmand ni|
|00006230| 6c 20 61 70 70 65 6e 64 | 20 61 72 63 68 69 76 65 |l append| archive|
|00006240| 20 66 69 6c 65 73 5d 20 | 31 30 5d 29 0a 28 66 73 | files] |10]).(fs|
|00006250| 65 74 20 27 61 72 63 68 | 69 76 65 2d 72 65 6e 61 |et 'arch|ive-rena|
|00006260| 6d 65 2d 65 6e 74 72 79 | 20 23 5b 28 6e 65 77 6e |me-entry| #[(newn|
|00006270| 61 6d 65 29 20 22 08 ab | 84 c1 c2 21 88 0b c4 98 |ame) "..|...!....|
|00006280| ab 84 c1 c5 21 88 c6 1e | 07 c8 c9 ca 0e 0b 21 cc |....!...|......!.|
|00006290| 0e 07 52 21 29 cd 20 1e | 0e 1e 0f d0 0e 0f 21 ab |..R!). .|......!.|
|000062a0| 8d 0e 0f d1 20 0b 0e 0e | 23 88 d2 20 aa 83 c1 d3 |.... ...|#.. ....|
|000062b0| 21 2a 87 22 20 5b 61 72 | 63 68 69 76 65 2d 72 65 |!*." [ar|chive-re|
|000062c0| 61 64 2d 6f 6e 6c 79 20 | 65 72 72 6f 72 20 22 41 |ad-only |error "A|
|000062d0| 72 63 68 69 76 65 20 69 | 73 20 72 65 61 64 2d 6f |rchive i|s read-o|
|000062e0| 6e 6c 79 22 20 6e 65 77 | 6e 61 6d 65 20 22 22 20 |nly" new|name "" |
|000062f0| 22 41 72 63 68 69 76 65 | 20 6d 65 6d 62 65 72 73 |"Archive| members|
|00006300| 20 6d 61 79 20 6e 6f 74 | 20 62 65 20 67 69 76 65 | may not| be give|
|00006310| 6e 20 65 6d 70 74 79 20 | 6e 61 6d 65 73 22 20 22 |n empty |names" "|
|00006320| 72 65 6e 61 6d 65 2d 65 | 6e 74 72 79 22 20 73 75 |rename-e|ntry" su|
|00006330| 66 66 69 78 20 69 6e 74 | 65 72 6e 20 22 61 72 63 |ffix int|ern "arc|
|00006340| 68 69 76 65 2d 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |hive-" s|ymbol-na|
|00006350| 6d 65 20 61 72 63 68 69 | 76 65 2d 73 75 62 74 79 |me archi|ve-subty|
|00006360| 70 65 20 22 2d 22 20 61 | 72 63 68 69 76 65 2d 67 |pe "-" a|rchive-g|
|00006370| 65 74 2d 64 65 73 63 72 | 20 64 65 73 63 72 20 66 |et-descr| descr f|
|00006380| 75 6e 63 20 66 62 6f 75 | 6e 64 70 20 62 75 66 66 |unc fbou|ndp buff|
|00006390| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 61 72 63 |er-file-|name arc|
|000063a0| 68 69 76 65 2d 72 65 73 | 75 6d 6d 61 72 69 7a 65 |hive-res|ummarize|
|000063b0| 20 22 52 65 6e 61 6d 69 | 6e 67 20 69 73 20 6e 6f | "Renami|ng is no|
|000063c0| 74 20 73 75 70 70 6f 72 | 74 65 64 20 66 6f 72 20 |t suppor|ted for |
|000063d0| 74 68 69 73 20 61 72 63 | 68 69 76 65 20 74 79 70 |this arc|hive typ|
|000063e0| 65 22 5d 20 35 20 22 5c | 0a 43 68 61 6e 67 65 20 |e"] 5 "\|.Change |
|000063f0| 74 68 65 20 6e 61 6d 65 | 20 61 73 73 6f 63 69 61 |the name| associa|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
